[Mocha]

Okay, so I have a huge folder of GPD's so I use a foreach loop and I can add them all into a listview. But when I go to read there title name **** goes wrong, because I don't know how to make it for each gpd that is added to the listview it grabs that gpds path reads it adds the file name and moves onto the next. Any suggestions?

[Mocha]

Originally Posted by Mocha

Okay, so I have a huge folder of GPD's so I use a foreach loop and I can add them all into a listview. But when I go to read there title name **** goes wrong, because I don't know how to make it for each gpd that is added to the listview it grabs that gpds path reads it adds the file name and moves onto the next. Any suggestions?

Bump.

[Oscar]

Posting what code you have at the moment might help.

[Mocha]

Originally Posted by Oscar

Posting what code you have at the moment might help.

This snippet grabs all the gpds from that folder.

 Dim FDB As New FolderBrowserDialog
        FDB.ShowDialog()
        Dim ID
        Dim Parent As TreeListNode
        Dim FileList() As String = Directory.GetFiles(fdb.SelectedPath)
        For Each FilePath As String In FileList
            If Path.GetFileName(FilePath).Contains(".gpd") Then
                ID = Path.GetFileName(FilePath).Replace(".gpd", "")
            End If

            Dim Node1 As TreeListNode = TreeList1.AppendNode(New Object(), Parent)
            Node1.SetValue(TreeListColumn1, Path.GetFullPath(FilePath))
            Node1.SetValue(TreeListColumn2, ID)
        Next

And this is the code for the search and the reader, and what im stuck is I don't know what to put as the path for them so
that it grabs the path from one node gets the title name and moves on.

Dim Search As New HexSearch(TreeList1.FocusedNode(I don't know what to put as the path here), "4E44AE4260", 1)
        Dim Offset = Search.Search
        Dim Int As Integer = +6
        Dim NewOffset As Integer = Offset + Int

        Reader = New PackageIO.Reader(I don't know what to put as the path here, Endian.Big)
        Reader.Position = NewOffset
        Dim i As Integer = 0
        Do Until Reader.ReadHexString(2) = "0000"
            i = +1
            ListView1.Items.Add(i)
        Loop
        Dim Length = ListView1.Items.Count
        Reader.Position = NewOffset
        Node.SetValue(TreeListColumn1, Reader.ReadUnicodeString(Length))

[Abis24]

Edited to what you want :

When are adding each node to the treeview, tag it with the file path. Than later when you need to get the title name you can just create a reader to that selected nodes tag, since it holds the filepath.

[godzcheater]

Originally Posted by Abis24

Edit : ya'll *****s posted at the same time as meh

lolz mocha posted 10 mins b4 you
anyways i helped him on AIM
tis done

[Abis24]

Originally Posted by godzcheater

lolz mocha posted 10 mins b4 you
anyways i helped him on AIM
tis done

:S on my screen it says 2 mins ago lol

[austin12456]

Dim FDB As New FolderBrowserDialog
        FDB.ShowDialog()
        Dim ID
        Dim Parent As TreeListNode
        For Each FilePath As String In Directory.GetFiles(fdb.SelectedPath, "*.gpd")
            ID = Path.GetFileNameWithoutExtension(FilePath);

            Dim Node1 As TreeListNode = TreeList1.AppendNode(New Object(), Parent)
            Node1.SetValue(TreeListColumn1, Path.GetFullPath(FilePath))
            Node1.SetValue(TreeListColumn2, ID)
        Next

That doesn't fix anything, just a cleaner method.

[JoshuaT]

Hope this helps, just coded it.

MEGAUPLOAD - The leading online storage and file delivery service

It gets all the files in the selected directory and sets into an array, after that its just a case of selected each item, this only gets the Magic and Path, and sets into the listview

Its an example to show you what to do, now you can add on other stuff.

If you want I will add the part to read the gpd name.....?

Also if you just want it for the GPDs then just in the reading put

if (reader.readstring(4) != "XDBF") return;

Edit: also to get the selected tree node its TreeList1.SelectedNode[0]; (thats for the first column, [1] for the secound etc etc)

[Oscar]

Ew searching, this is C# shouldn't be too hard to convert to VB

PHP Code:

        static string NameFromGpd(string path)
        {
            EndianReader reader = new EndianReader(File.OpenRead(path), EndianType.Big);

            if (reader.ReadInt32() != 0x58444246)
                throw new Exception("Not a valid GPD file");

            reader.Position += 4; //Version
            int entryMax = reader.ReadInt32();
            int entryCount = reader.ReadInt32();
            int freeMax = reader.ReadInt32();
            reader.Position += 4; //Free count

            int offset = (entryMax * 0x12) + (freeMax * 0x8) + 0x18;
            int length = 0;

            for (int i = 0; i < entryCount; i++)
            {
                if (reader.ReadInt16() == 5 && //Namespace
                    reader.ReadInt64() == 0x8000) //ID
                {
                    offset += reader.ReadInt32();
                    length = reader.ReadInt32();
                    break;
                }
                else
                {
                    reader.Position += 16;
                }
            }

            if (length == 0)
                throw new Exception("Entry invalid or not found");

            reader.Position = offset;
            return Encoding.BigEndianUnicode.GetString(reader.ReadBytes(length));
        }