Reading/Writing To Text Files

integer li_FileNum, li_FileNum_Write
string ls_Emp_Input, ls_output
long ll_FLength
long ll_count

ll_count = 1
ll_FLength = FileLength64("C:\countries.txt")
li_FileNum = FileOpen("C:\countries.txt",  LineMode!)
li_FileNum_Write = FileOpen("C:\country2.TXT", LineMode!, Write!, LockWrite!, Append!)

IF ll_FLength < 32767 THEN
  do  while FileRead(li_FileNum, ls_Emp_Input) > 0
    ls_output = 'dw_1.Setvalue("country", ' + string(ll_count) +  ', "' + trim(ls_emp_input) +'")'
    FileWrite(li_FileNum_Write, ls_output)
    ll_count = ll_count +1
  loop

END IF