/me sends Dare2 the Sydney swans to mess up his house and squish him like a bug. They mess up his house, drink all his beer, leave sweat stains on everything and they sit on him repeatedly.Dare2 wrote:Fangs will be pleased ..
Probs Clear Gadgetlist
-
Fangbeast
- PureBasic Protozoa
- Posts: 4789
- Joined: Fri Apr 25, 2003 3:08 pm
- Location: Not Sydney!!! (Bad water, no goats)
Amateur Radio/VK3HAF, (D-STAR/DMR and more), Arduino, ESP32, Coding, Crochet
ok using beta 7
The program hangs while trying to read a line from the file created.
Line 81 is the problem when using beta 7.
While Eof(file)=0 And found=0
text$=LCase( ReadString(file) ) ----- This is line that causes lock
found=FindString(text$,search$,1)
If tag>0 And FindString(text$,tag$(tag),1)
ProcedureReturn "ENDTAG"
EndIf
Wend
The program hangs while trying to read a line from the file created.
Line 81 is the problem when using beta 7.
While Eof(file)=0 And found=0
text$=LCase( ReadString(file) ) ----- This is line that causes lock
found=FindString(text$,search$,1)
If tag>0 And FindString(text$,tag$(tag),1)
ProcedureReturn "ENDTAG"
EndIf
Wend
ok using beta 7 causes different probs.
yes change the openwindow will compile which i know as already tried under beta 7.
The problem that beta 7 creates is that same code will lock.
Line 81 is the culprit..
I have tried code under diff beta of pb. And currently b3 is working ok, apart from refresh prob.
That is why i have stayed with that version for moment
yes change the openwindow will compile which i know as already tried under beta 7.
The problem that beta 7 creates is that same code will lock.
Line 81 is the culprit..
Code: Select all
While Eof(file)=0 And found=0
text$=LCase( ReadString(file) ) ; This is the problem line in b7
found=FindString(text$,search$,1)
If tag>0 And FindString(text$,tag$(tag),1)
ProcedureReturn "ENDTAG"
EndIf
Wend
That is why i have stayed with that version for moment
-
Fangbeast
- PureBasic Protozoa
- Posts: 4789
- Joined: Fri Apr 25, 2003 3:08 pm
- Location: Not Sydney!!! (Bad water, no goats)
STU-ASI wrote:ok using beta 7 causes different probs.
yes change the openwindow will compile which i know as already tried under beta 7.
The problem that beta 7 creates is that same code will lock.
Line 81 is the culprit..
I have tried code under diff beta of pb. And currently b3 is working ok, apart from refresh prob.Code: Select all
While Eof(file)=0 And found=0 text$=LCase( ReadString(file) ) ; This is the problem line in b7 found=FindString(text$,search$,1) If tag>0 And FindString(text$,tag$(tag),1) ProcedureReturn "ENDTAG" EndIf Wend
That is why i have stayed with that version for moment
Do you have a Catver.ini file I could test this with? (or whatever file I need to test this with) I suspect it might be that you are trying to read from a file that is either not opened properly or is truncated but I can't be sure.
send it to fangbeast@gmail.com and I'll bash it soundly over the head.
**EDIT** Never mind, found one I think
Amateur Radio/VK3HAF, (D-STAR/DMR and more), Arduino, ESP32, Coding, Crochet
