FoxPro app compiled as .exe freezing up! help!

[tristero]

i have a project built as an *.exe

this project is essentially 1 main form.

every once in a while i try pressing one of the buttons to make it do something and it freezes (goes to an hourglass, when it shouldn't). it says it is running in the task manager but it never stops.

at first i thought it was an infinite loop mistake on my part but i can't see how that is possible.

this is driving me mad, please help! thank you

very simply, i am trying to trim any non alphanumeric chars from the beginning of each line of text.

some info regarding my app:

ShowWindow = 2 (As top-level form)
WindowType = 0 (modeless)
MDIForm = .F.

here is the click() event code that gets stuck:

cTrk = thisform.edit1.value
cTrkFinal = ""

FOR i = 1 TO MEMLINES(cTrk)
	m.line = ALLTRIM(MLINE(cTrk, i))
	
	DO WHILE !(ISALPHA(LEFT(m.line,1)))
		m.line = SUBSTR(m.line,2)
	ENDDO
	
	cTrkFinal = cTrkFinal+m.line+CHR(13)
ENDFOR

thisform.edit1.value = cTrkFinal

Dan Trenz
Ann Arbor, MI

 

[rgbean]

Dan,
If m.line = "" && the null string, then the DO WHILE will go for ever!

Rick

 

[tristero]

right, would this fix it?

cTrk = thisform.edit1.value
cTrkFinal = ""

FOR i = 1 TO MEMLINES(cTrk)
	m.line = ALLTRIM(MLINE(cTrk, i))
	
	DO WHILE !ISALPHA(m.line) AND !EMPTY(m.line)
		m.line= SUBSTR(m.line,2)
	ENDDO
	
	cTrkFinal = cTrkFinal+m.line+CHR(13)
ENDFOR

thisform.edit1.value = cTrkFinal

or this..

cTrk = thisform.edit1.value
cTrkFinal = ""

FOR i = 1 TO MEMLINES(cTrk)
	m.line = ALLTRIM(MLINE(cTrk, i))
	
	DO WHILE !ISALPHA(m.line) AND !ISBLANK(m.line)
		m.line= SUBSTR(m.line,2)
	ENDDO
	
	cTrkFinal = cTrkFinal+m.line+CHR(13)
ENDFOR

thisform.edit1.value = cTrkFinal

Dan Trenz
Ann Arbor, MI

 

[tristero]

i think i fixed it.

DO WHILE !ISALPHA(m.line) AND !(LEFT(m.line,1)=="")
	m.line= SUBSTR(m.line,2)
ENDDO

not the prettiest code, but it seems to be working...

thanks rick

Dan Trenz
Ann Arbor, MI