file writer

[jimpie]

Hello,

I'm trying to make an editor for my game but how can I convert my old code from vb6.0 to vs 2010? I know it's all in System.IO but I can't figure out how it works

old code:

Public Sub SaveItems()

Dim ItemNum as long
Dim F as string
Dim Filename as string

F = FreeFile
Filename = App.Path & "\Data\Items\" & ItemNum & ".item"

'check if the items exists
CheckItems

For ItemNum = 1 To 50

Open Filename For Binary As #F
Put #F , , Item(ItemNum)
Close #F

Next

End Sub

new code ?

    Public Sub SaveItems()
        Dim filename As String
        Dim ItemNum as Integer

For ItemNum = 0 to 50

        filename = "Data\Items\" & ItemNum & ".item"

        If Not File.Exists(filename) Then
            File.Create(filename)
        End If

'here it should save the file? it should do something like this:
' -->
Open Filename For Binary As #F
Put #F , , Item(ItemNum)
Close #F
' <--

Next

End Sub

thanks in advaced

[.paul.]

do you want 1 file for each element of your items array, or 1 file containing the whole array?

[jimpie]

do you want 1 file for each element of your items array, or 1 file containing the whole array?

1 file for each item if possoible

[.paul.]

try this:

For ItemNum = 0 To Item.getupperbound(0)
    Dim Filename As String = IO.Path.Combine(My.Application.Info.DirectoryPath, "\Data\Items\" & (ItemNum + 1).ToString & ".item")
    IO.File.WriteAllText(Filename, item(ItemNum))
Next

[jimpie]

try this:

For ItemNum = 0 To Item.getupperbound(0)
    Dim Filename As String = IO.Path.Combine(My.Application.Info.DirectoryPath, "\Data\Items\" & (ItemNum + 1).ToString & ".item")
    IO.File.WriteAllText(Filename, item(ItemNum))
Next

thanks, works fine! I've changed the code a bit but now it errors again, it says it can't access the file because it's being used.

    Public Sub SaveItem(ByVal Itemnum As Integer)

        Dim FileName As String

        FileName = "Data\Items\" & Itemnum & ".item"

        If Itemnum < 0 Or Itemnum > max_items Then Exit Sub

        Try

            If Not File.Exists(FileName) Then
                File.Create(FileName)
                'Here it should close the just created file 
            End If

            IO.File.WriteAllText(FileName, Item(Itemnum).Name)

        Catch ex As Exception

            MsgBox("could not save item " & Itemnum & " because: " & Err.Description)

        End Try

    End Sub

I think it is because if the file not exists it will create the file, but once created, the sub is not closing the file anymore. So how do I close my just created file? File.Close or something isnt in the list

[.paul.]

there's no need to check if the file exists + create if not.
writealltext will create a new file or overwrite an existing file

[jimpie]

there's no need to check if the file exists + create if not.
writealltext will create a new file or overwrite an existing file

ah, I see. thanks.

next problem: now it needs to get the name of the item when you load the form so you know what item you're editing. But it errors at the red line. "Value of type 'String' cannot be converted to 'System.Text.Encoding'."

    Public Sub LoadItem(ByVal ItemNum As Integer)

        Dim Filename As String
        Filename = "Data\Items\" & ItemNum & ".item"

        With frmItemEditor

            Try

                'Prevents error if the file does not exist
                CheckItem(ItemNum)

                Item(ItemNum).Name = IO.File.ReadAllText(Filename, Item(ItemNum).Name)


                If ItemNum < 10 Then

                    .lstIndex.Items.Add("00" & ItemNum & ": " & Item(ItemNum).Name)

                ElseIf ItemNum < 100 Then

                    .lstIndex.Items.Add("0" & ItemNum & ": " & Item(ItemNum).Name)

                ElseIf ItemNum < 1000 Then

                    .lstIndex.Items.Add(ItemNum & ": " & Item(ItemNum).Name)

                End If

            Catch ex As Exception

                MsgBox("Could not load item " & ItemNum & " because: " & Err.Description)

            End Try

        End With

    End Sub

    Public Sub CheckItem(ByVal ItemNum As Integer)

        Dim Filename As String = "Data\Items\" & ItemNum & ".item"

        If Not File.Exists(Filename) Then
            IO.File.WriteAllText(Filename, Item(ItemNum).Name)
        End If

    End Sub

[.paul.]

Item(ItemNum).Name = IO.File.ReadAllText(Filename)