Parseing a dat\txt file

Blitz3D Forums/Blitz3D Beginners Area/Parseing a dat\txt file

Aussie

(Posted 2010) [#1]

Gday everyone.

I have been following a tutorial on How to parse a txt file.
http://www.blitzbasic.com/Community/posts.php?topic=27896#292641 and have run into problems.

Here is what the dat file looks like

[W1_L1]
meshtype=Asteroid_1
x=50
y=25
xv=.2
yv=.1
rotx=2
roty=1
rotz=2
life=10
alpha=.1
order=-1
meshtype=Asteroid_1
x=-10
y=-32
xv=-.1
yv=-.2
rotx=1
roty=2
rotz=1
life=10
alpha=.1
order=-2
meshtype=Asteroid_2
x=10
y=15
xv=.01
yv=.2
rotx=1
roty=2
rotz=3
life=2
alpha=.1
order=-3
[Blah]
something
something
something
[Blah]
.
.
.
.

And here is the code.

filein = OpenFile("Game2.dat")
If filein <> 0
  ;load graphics mode
foundit = 0

Repeat

  If Lower(ReadLine$(filein))="[W1_L1]" Then foundit = 1

Until Eof(filein) Or foundit = 1

  If foundit = 1
    done = False 

Repeat

	param$ = Lower(ReadLine$(filein))


      If Left$(param$, 9) = "meshtype="
        valS$ = Right$(param$, Len(param$) - 9)
		Entity_type$ = valS$
			
			Select Entity_type$
				Case Lower("Asteroid_1")
						Print "Asteroid type 1"
							
				Case Lower("Asteroid_2")
						Print "Asteroid type 2"

									
			End Select
   
		EndIf
		

      	If Left$(param$, 2) = "x="
        	val# = Right$(param$, Len(param$) - 2)
        	
Print "X = " + val#
     	 EndIf


       	If Left$(param$, 2) = "y="
        	val# = Right$(param$, Len(param$) - 2)
        	
Print "Y = " + val#
      	EndIf

	

		If Left$(param$, 3) = "xv="
       		val# = Right$(param$, Len(param$) - 3)
        	
Print "XV = " + val#
     	EndIf



		If Left$(param$, 3) = "yv="
       		val# = Right$(param$, Len(param$) - 3)
        	
Print "YV = " + val#
     	EndIf



		If Left$(param$, 5) = "rotx="
       		val# = Right$(param$, Len(param$) - 5)
        	
Print "ROTX = " + val#
     	EndIf



		If Left$(param$, 5) = "roty="
       		val# = Right$(param$, Len(param$) - 5)
        	
Print "ROTY = " + val#
     	EndIf



		If Left$(param$, 5) = "rotz="
       		val# = Right$(param$, Len(param$) - 5)
        	
Print "ROTZ = " + val#
     	EndIf



		If Left$(param$, 5) = "life="
       		val# = Right$(param$, Len(param$) - 5)
        
Print "LIFE = " + val#
     	EndIf



		If Left$(param$, 6) = "alpha="
       		val# = Right$(param$, Len(param$) - 6)

Print "ALPHA = " + val#
     	EndIf



		If Left$(param$, 6) = "order="
       		valF% = Right$(param$, Len(param$) - 6)

Print "ORDER = " + valF%
     	EndIf


WaitKey()
      If Left$(param$, 1) = "[" Or Eof(filein) Then done = True 
    Until done = True 
  EndIf

  ;close file
  CloseFile filein
  filein = 0
Else
  DebugLog "File Not Found"
EndIf ;filein <> 0

The problem is that it dosn't seem to reconise the line [W1_L1].

I have changed the first foundit value to 1 just to test the code & have found it to read through the dat file without a problem. But with it set to 0 it won't read the file.

Any help would be greatly apreciated.
Cheers : )

Ross C

(Posted 2010) [#2]

I would have thought that:

  If foundit = 1
    done = False

would have caused an error, as you not closing it with an End If.

Aussie

(Posted 2010) [#3]

Edit: Thanks Ross but the i'm prety sure "End If" is the last "End If" in the code. You posted as i was posting.

Ok i have got it working.

I just changed
If Lower(ReadLine$(filein))="[W1_L1]" Then foundit = 1

to
If ReadLine$(filein)="[W1_L1]" Then foundit = 1

Now i am using this to Parse the values into Types and i keep geting "entity dose not exist"

If i use this.

Function Load_level()
	
	Filein = ReadFile("include/game.dat")
		
		While Not Eof(Filein)
			temp$ = ""
				e.enemy = New enemy
				
					temp$ = ReadLine(filein)
					e\meshtype$ = temp$
						Select True
								Case e\meshtype$ ="Asteroid_1"
							 		e\mesh = CopyEntity(cube)
							
								Case e\meshtype$ ="Asteroid_2"
									e\mesh = CopyEntity(cube1)
									
							End Select
							
					temp$ = ReadLine(filein)
					e\x# = temp$
					
					temp$ = ReadLine(filein)
					e\y# =  temp$
					
					temp$ = ReadLine(filein)
					e\xv# = temp$
					
					temp$ = ReadLine(filein)
					e\yv# = temp$
					
					temp$ = ReadLine(filein)
					e\rotx# = temp$
					
					temp$ = ReadLine(filein)
					e\roty# = temp$
					
					temp$ = ReadLine(filein)
					e\rotz# = temp$
					
					temp$ = ReadLine(filein)
					e\life# = temp$
					
					temp$ = ReadLine(filein)
					e\alpha# = temp$
					
					temp$ = ReadLine(filein)
					e\order = temp$	
						
				PositionEntity e\mesh,e\x,0,e\y
				EntityOrder e\mesh,e\order
				
			Wend
			
	CloseFile filein
End Function

It works.
This is what the .dat file for this one looks like.
Asteroid_1
50
25
.2
.1
2
1
2
10
.1
-1
Asteroid_1
-10
-32
-.1
-.2
1
2
1
10
.1
-2
Asteroid_2
10
15
.01
.2
1
2
3
2
.1
-3

But if i use this to read from the .dat file in the first post.

Function file_load()

filein = OpenFile("include\game2.dat")
If filein <> 0
  
  foundit = 0
  Repeat

    If ReadLine$(filein)="[W1_L1]" Then foundit = 1

  Until Eof(filein) Or foundit = 1

If foundit = 1
    done = False 
    Repeat


	e.enemy = New enemy

      param$ = Lower(ReadLine$(filein))

	
      If Left$(param$, 9) = "meshtype="
        word$ = Right$(param$, Len(param$) - 9)
       	
		e\meshtype$ = word$
		
			Select e\meshtype$
				Case e\meshtype$ = Lower("Asteroid_1")
						e\mesh = CopyEntity(cube)
							
				Case e\meshtype$ = Lower("Asteroid_2")
						e\mesh = CopyEntity(cube1)
							
		End Select
		EndIf
		

      	If Left$(param$, 2) = "x="
        	val# = Right$(param$, Len(param$) - 2)
        	e\x# = val
     	 EndIf


       	If Left$(param$, 2) = "y="
        	val# = Right$(param$, Len(param$) - 2)
        	e\y# = val
      	EndIf

	

		If Left$(param$, 3) = "xv="
       		val# = Right$(param$, Len(param$) - 3)
        	e\xv# = val
     	EndIf



		If Left$(param$, 3) = "yv="
       		val# = Right$(param$, Len(param$) - 3)
        	e\yv# = val
     	EndIf


	
		If Left$(param$, 5) = "rotx="
       		val# = Right$(param$, Len(param$) - 5)
        	e\rotx# = val
     	EndIf



		If Left$(param$, 5) = "roty="
       		val# = Right$(param$, Len(param$) - 5)
        	e\roty# = val
     	EndIf



		If Left$(param$, 5) = "rotz="
       		val# = Right$(param$, Len(param$) - 5)
        	e\rotz# = val
     	EndIf



		If Left$(param$, 5) = "life="
       		val# = Right$(param$, Len(param$) - 5)
        	e\life# = val
     	EndIf



		If Left$(param$, 6) = "alpha="
       		val# = Right$(param$, Len(param$) - 6)
        	e\alpha# = val
     	EndIf



		If Left$(param$, 6) = "order="
       		valI = Right$(param$, Len(param$) - 6)
        	e\order = val
     	EndIf

		PositionEntity e\mesh,e\x,0,e\y
		EntityOrder e\mesh,e\order


      If Left$(param$, 1) = "[" Or Eof(filein) Then done = True 
    Until done = True 
  EndIf

  
  CloseFile filein
  filein = 0
Else
  DebugLog "File Not Found"
EndIf 

End Function

It dosn't work.

I don't understand why it is working with the first Loading function i used but not the second one. Both codes are doing prety much the same thing, only one is searcing for "key words" & the other one is just reading values straight into the Types.
Cheers : )

Edit: I have just realized that it is creating a new Type & trying to position & set an entitys order every time the loop is repeated. So i have now got a "key word" set for it to create a new Type & set its position & order.
If the loop finds "NEW" a new type is created.
If the loop finds "FINISH" the position & order is set.
But i still keep geting "Entity dose not exist" at position entity????

Aussie

(Posted 2010) [#4]

Got it working. The reason i was getting "entity dose not exist" was the case select.
i changed this.

Select e\meshtype$
				Case e\meshtype$ = Lower("Asteroid_1")
						e\mesh = CopyEntity(cube)
							
				Case e\meshtype$ = Lower("Asteroid_2")
						e\mesh = CopyEntity(cube1)

to this

Select e\meshtype$
				Case  Lower("Asteroid_1")
						e\meshtype$ = "Asteroid_1"
						e\mesh = CopyEntity(cube)
							
				Case  Lower("Asteroid_2")
						e\meshtype$ = "Asteroid_2"
						e\mesh = CopyEntity(cube1)
							
		End Select

Floyd

(Posted 2010) [#5]

The first problem was caused by

  If Lower(ReadLine$(filein))="[W1_L1]" Then foundit = 1

because Lower( something ) converts to lower case. The result can never match [W1_L1].

You could have used Upper() or compared with [w1_l1].
Or done neither if you are confident of the case of [W1_L1] in the file.

_PJ_	(Posted 2010) [#6]

Similaryl tis is somewhat unnecessary:

to this

Select e\meshtype$
				Case  Lower("Asteroid_1")
						e\meshtype$ = "Asteroid_1"
						e\mesh = CopyEntity(cube)
							
				Case  Lower("Asteroid_2")
						e\meshtype$ = "Asteroid_2"
						e\mesh = CopyEntity(cube1)
							
		End Select

Essentially each "Case" statement is a way of checking the argument presented with Select...

Select e\meshtype$
Case Lower("Asteroid_1")
					e\meshtype$ = "Asteroid_1"
						e\mesh = CopyEntity(cube)
is equivalent to:

If (e\meshtype$=Lower("Asteroid_1")) Then
						e\meshtype$ = "Asteroid_1"
						e\mesh = CopyEntity(cube)
End If

Since your case argument is known (what you are checking for), then there should be no need for the Lower() command, instead, you can enter this manually. You MAY instead be wanting to ensure that your unknown string variable, e\meshtype$ is converted to lower case for the check:

Select (Lower$(e\meshtype$))
Case "asteroid_1"

Then, you are reassinging the variable e\meshtype with the name you have pretty much just checked for, so it may be unnecessary, or at least, by ensuring it is NOW in lowercase will prevent any further reason to distinguish the case.

e\meshtype$ = "asteroid_1"

This entire procedure could be made much easier by placiong the Lower() command at the point of whenever e\meshtype$ is first defined.

temp$ = ReadLine(filein)
					e\meshtype$ = Lower(temp$)

This way, you can be sure that e\meshtype$ will ALWAYS be lower case in future.

Lastly, there's

						e\mesh = CopyEntity(cube)

I couldn't see any other reference to "cube" as an entity, so make sure that this exists and, is either passed to the load_level function, or is global.