problem with text editing.

[JesseParticipant]

I am trying to load a text file and parse it byte by byte, I can brake it down into lines and display it correctly but when I try to parse it by bytes and add the bytes back up it creates some weird text at the end of each line. I think its a problem with the byte additions in the string class but I need to verify. I have included the text file with a “fnt” extension. And the source code is a small test program:

Monkey

[crayon-5cba8c8b3db71597463150 inline="true" ] #import "<mojo>" #import "<std>" #import "mygliph.fnt" Using mojo.. Using std.. Function Main() LoadFont("mygliph") End Function Function LoadFont(url:String) Local str:String = "aset::"+url+".fnt" Print str+"**********" Local text:String = LoadString("asset::"+url+".fnt") If text = Null Print "unable to load text" Local lines:= text.Split(String.FromChar(10)) lines[4] = lines[4].Replace(" ","") For Local i:Int = 4 Until lines.Length 'go through each lines in the text Local s:String = "" Print s For Local j:int = 0 Until lines[i].Length 'go through each character in the line While lines[i][j] <> 32 'select all of the non space characters s += String.FromChar(lines[i][j]) j+=1 Wend 'skip all of the 'space' characters While lines[i][j] = 32 And j < lines[i].Length j+=1 Wend j -= 1 ' move back to where the last space is. s+="," ' and replace with a comma, Next Print s Next End function

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

[crayon-5cba8c8b3db71597463150 inline="true" ] #import "<mojo>" #import "<std>" #import "mygliph.fnt" Using mojo.. Using std..   Function Main() LoadFont("mygliph") End Function   Function  LoadFont(url:String) Local str:String = "aset::"+url+".fnt" Print str+"**********" Local text:String = LoadString("asset::"+url+".fnt") If text = Null Print "unable to load text" Local lines:= text.Split(String.FromChar(10)) lines[4] = lines[4].Replace("  ","") For Local i:Int = 4 Until lines.Length  'go through each lines in the text Local s:String = "" Print s For Local j:int = 0 Until lines[i].Length 'go through each character in the line While lines[i][j] <> 32 'select all of the non space characters s += String.FromChar(lines[i][j]) j+=1 Wend 'skip all of the 'space' characters While lines[i][j] = 32 And j < lines[i].Length j+=1 Wend j -= 1 ' move back to where the last space is. s+="," ' and replace with a comma, Next Print s Next End function

[/crayon]

this is a link to this same source code and text file:
https://www.dropbox.com/s/n0qiv91gxuqg3l1/Archive.zip?dl=0

I would appreciate if someone could give me a hand in figuring this out.

[AdamStrangeParticipant]

not sure what the issue is, as far as I could see the .fnt file looks ok. But the code is a bit mangled.

Here’s a simpler version which reads the file byte by byte and reconstructs each line. gives a very different output:

Monkey

#import "<mojo>" #import "<std>" Using mojo.. Using std.. #import "mygliph.fnt" Function Main() LoadMyFont("mygliph") End Function Function LoadMyFont(url:String) Local str:String = "aset::"+url+".fnt" Print str+"**********" Local text:String = LoadString("asset::"+url+".fnt") If text = Null then Print "unable to load text" Return End If Local k:int Local line:string Local char:string For k = 0 To text.Length char = text.Mid( k, 1 ) If char < " " Then Print line line = "" Else line += char End If Next ' Local lines:= text.Split(String.FromChar(10)) ' lines[4] = lines[4].Replace(" ","") ' For Local i:Int = 4 Until lines.Length ' Local s:String = "" ' Print s ' For Local j:int = 0 Until lines[i].Length ' If lines[i][j] = "@"[0] exit ' While lines[i][j] <> 32 ' s += String.FromChar(lines[i][j]) ' j+=1 ' Wend ' While lines[i][j] = 32 And j < lines[i].Length ' j+=1 ' Wend ' j -= 1 ' s+="," ' Next ' Print s ' Next End function

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

#import "<mojo>" #import "<std>" Using mojo.. Using std..   #import "mygliph.fnt"     Function Main() LoadMyFont("mygliph") End Function       Function  LoadMyFont(url:String) Local str:String = "aset::"+url+".fnt" Print str+"**********" Local text:String = LoadString("asset::"+url+".fnt") If text = Null then Print "unable to load text" Return End If   Local k:int Local line:string Local char:string For k = 0 To text.Length char = text.Mid( k, 1 ) If char < " " Then Print line line = "" Else line += char End If Next ' Local lines:= text.Split(String.FromChar(10)) ' lines[4] = lines[4].Replace("  ","") ' For Local i:Int = 4 Until lines.Length ' Local s:String = "" ' Print s ' For Local j:int = 0 Until lines[i].Length ' If lines[i][j] = "@"[0]  exit ' While lines[i][j] <> 32 ' s += String.FromChar(lines[i][j]) ' j+=1 ' Wend ' While lines[i][j] = 32 And j < lines[i].Length ' j+=1 ' Wend ' j -= 1 ' s+="," ' Next ' Print s ' Next End function

[JesseParticipant]

did you download and run the code?
your code doesn’t do what I want to do.

the problem with my code is that it reads the line and outputs the result but at the end of the line it adds some extra characters, characters that are not in the text file. the picture shows that the last 5 or four characters at each of the lines are extra:

if you compare the output with the txt file you will notice that it does not contain “{char” at the end of each line of the “.fnt” file.

if I replace line 27 with this:
s += lines[i].Mid(j,1)
it works fine.

[Mark SiblyKeymaster]

You’re reading past the end of line, you need something like:

Monkey

While j < lines[i].Length And lines[i][j]<>32 s += String.FromChar(lines[i][j]) j+=1 Wend While j < lines[i].Length And lines[i][j] = 32 j+=1 Wend

1 2 3 4 5 6 7 8 9

While j < lines[i].Length And lines[i][j]<>32 s += String.FromChar(lines[i][j]) j+=1 Wend While j < lines[i].Length And lines[i][j] = 32 j+=1 Wend

But mx2’s not helping here – it should be generating something like ‘index out of range’ when you try to do this. Will fix ASAP.

[JesseParticipant]

Thanks.

about reading past the end of the line,it’s not.
if I replace line 27:
s += String.FromChar(lines[i][j])
with this:
s += lines[i].Mid(j,1)
it works fine.

[Mark SiblyKeymaster]

Your first while loops compares char at j with 32, without first checking that j<line.Length. With char index checking on, it indeed fails here on the first line of the text file.

Your second while loop is better, but it checks j<line.length *after* reading char at j so the check is too late.

it works fine.

This is because Mid() uses Slice, which does a range check so it’ll be returning an empty string once you go past end of line. Here, it works for a bit longer with this change but I eventually get a ‘memory access error’.

String char index checking would have made this 100 times easier to find (can’t believe it wasn’t there – sure it used to be), so it’s my fault really…

[JesseParticipant]

As usual I feel stupid. I still don’t get why it goes beyond one and not with the other. I don’t see why the while don’t exit if j >= to line[i].Length. to my understanding it should exit regardless of what follows. Don’t worry i am known to have this kind of moments.

[Author]

Posts