Calling String from custom .dat file.

[jsorr2]

Trying to call Monster's name from file. Come's up with a blank. What am I doing wrong?

```

Sub SaveMonsters()

Dim i As Long

For i = 1 To MAX_MONSTERS

Call SaveMonster(i)

Next

End Sub

Sub SaveMonster(ByVal MonstersNum As Long)

Dim filename As String

Dim F As Long

filename = App.path & "\data\Monsters\Monsters" & MonstersNum & ".dat"

F = FreeFile

Open filename For Binary As #F

Put #F, , Monsters(MonstersNum)

Close #F

End Sub

Sub LoadMonsters()

Dim filename As String

Dim i As Long

Dim F As Long

Call CheckMonsters

For i = 1 To MAX_MONSTERS

filename = App.path & "\data\BaseMonster" & ".txt"

F = FreeFile

Open filename For Binary As #F

Get #F, , Monsters(i)

Close #F

Next

End Sub

Sub CheckMonsters()

Dim i As Long

For i = 1 To MAX_MONSTERS

If Not FileExist("\Data\Monsters\Monsters" & i & ".dat") Then

Call SaveMonsters(i)

End If

Next

End Sub

Sub ClearMonster(ByVal index As Long)

Call ZeroMemory(ByVal VarPtr(Monsters(index)), LenB(Monsters(index)))

Monsters(index).MonstersName = vbNullString

End Sub

Sub ClearMonsters()

Dim i As Long

For i = 1 To MAX_MONSTERS

Call ClearMonster(i)

Next

End Sub

```
```

Public Function GetFileName(ID As Long) As String

GetFileName = App.path & "\data\Monsters\Monsters" & ID & ".dat"

End Function

Public Function GetMonstersName(ID As Long) As String

Dim filename As String

If ID > 0 And ID <= 50 Then

filename = GetFileName(ID)

GetMonstersName = GetVar(filename, CStr(ID), "Name")

Else

GetMonstersName = OutBounds

End If

End Function

```

[Matt]

You could alternatively do something along the lines of```
npc(index).name
```It would be much easier than getting the name from the file itself.

[abhi2011]

Why would u use a getvar when it is a .dat file?

[Guest]

You're doing a GetVar from a .txt file whilst your monsters are saved in a binary .dat. All it should be is GetMonsterName = Monster(ID).Name.

[Guest]

Woops, delete this post.

[tslusny]

You are saving monsters to .dat file, but you are reading them from .txt file 

[abhi2011]

Use

```

open filename for binary as #F

input,,monster(index)

close #f

```
i wrote it out of memory so the input statement might be wrong.

For the name, after loading all you monster use

```

GetMonsterName = Monster(index).Name

```
Or something. Again you will have to edit it to work properly.