Sorry your browser is not supported!

rem global variables
global T$ as string

rem delete existing file
if file exist ("file_2.txt") then delete file "file_2.txt"

rem copy string
Open to read 1,"file_1.txt"
Open to write 2,"file_2.txt"
Read String 1,T$
Write String 2,T$

rem close files
close file 1
close file 2

rem returns a word from a string. If you want to get the second word from a line, call word$=GetWord("hello world you suck",2)

function GetWord(string$ as string,pos as word)

   rem local variables
   local letr as word
   local wrd as word


   rem find start position of word
   letr=0:wrd=0
   repeat
      inc letr
      if right$(left$(string$,letr),1)=" " then inc wrd
   until wrd=pos

   rem find end of word
   letr=0
   repeat
      inc letr
   until right$(left$(string$,pos+letr),1)=" "

   string$=right$(left$(string$,pos),letr)

endfunction string$

a$=GetWord("hello world you suck",2)

print a$
wait key
end


rem returns a word from a string. If you want to get the second word from a line, call word$=GetWord("hello world you suck",2)
function GetWord(Tex$,pos)

   ` Add a space to beginning and end of the string
   Tex$=" "+Tex$+" "

   rem find start position of word
   letr=0:wrd=0
   repeat
      inc letr
      if mid$(Tex$,letr)=" " then inc wrd
   until wrd=pos
  
   rem find end of word
   ` wrd isn't needed anymore so it's reused so letr is kept
   wrd=letr
   repeat
      inc wrd
   until mid$(Tex$,wrd)=" "

   Tex$=left$(right$(Tex$,len(Tex$)-letr),wrd-letr-1)

endfunction Tex$

a$=GetWord2("hello world you suck",2)

print a$
wait key
end


function GetWord2(Tex$,pos)
 
 ` Add a space to begining and end of the string
 Tex$=" "+Tex$+" "
 
 ` Go through all the characters of Tex$
 for t=1 to len(Tex$)

  ` Check for a space
  if mid$(Tex$,t)=" "

   ` Increase the number of words found
   inc Words

   ` Check if the WordStart was found already
   if WordStart>0
    ` Set the WordEnd
    WordEnd=t-WordStart
    ` Leave the FOR/NEXT loop
    exit
   endif

   ` Check if the right word number is found and set WordStart
   if Words=pos then WordStart=t+1

  endif
  
 next t

 ` Grab the word
 Tex$=mid$(Tex$,WordStart,WordEnd)

endfunction Tex$

a$=GetWord3("hello world you suck",2)

print a$
wait key
end


` Get a word using IanMs Matrix 1 Utilities Plugin
function GetWord3(Tex$,pos)

 ` Split words by spaces
 split string Tex$," "
 
 ` Grab word number pos
 Tex$=get split word$(pos)

endfunction Tex$