>lntxtfiles=adir(laTxtFiles, lcPattern) && Retrieve list of text files > >*-------------------------------------------------------------------------- >* -- loop through the array and perform string transformations in each text file >*-------------------------------------------------------------------------- >create cursor lcTempCursor ; > (WorkField M) >append blank > >for i=1 to lnTxtFiles > lcFileName=lcPath+laTxtFiles[i,1] > lcSendFileName = lcPath+ojc.CurState+'\'+left(laTxtFiles[i,1],4)+'.txt' > if file(lcSendFileName) > erase (lcSendFileName) > endif > append memo WorkField from (lcFileName) overwrite > if !empty(alltrim(WorkField)) > replace WorkField with strtran(WorkField,'"','') > copy memo WorkField to (lcSendFileName) > endif >next