on stripTheFile
global myFileObj
set theFileName = "TEST.TXT"
set theCastMember = "My Field"
if objectP(myFileObj) then myFileObj(mDispose)
set myFileObj = fileIO(mNew, "read", the pathName & theFileName)
if objectP(myFileObj) then
put myFileObj(mReadFile) into temp
repeat while TRUE
put offset(numToChar(10), temp) into y
if y > 0 then
delete char y of temp
else
exit repeat
end if
end repeat
put temp into field theCastMember
myFileObj(mDispose)
else
alert "Error opening file " & theFileName & "."
end if
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA