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