--
set y = new(xtra "fileio")
set theFilePath = displayOpen(y)
if theFilePath <> "" then
openFile(y,theFilePath,1)
set temp = readFile(y)
delete(y)
closeFile(y)
set PCending = RETURN & numToChar(10)
set MacEnding = RETURN
if convertToWhichType = "PC" then
set temp = ReplaceAll(temp,PCending,MacEnding)
else
set temp = ReplaceAll(temp,MacEnding,PCending)
end if
createFile(y,theFilePath)
openFile(y,theFilePath,2)
writeString(y,temp)
closeFile(y)
end if
end
SEARCH/REPLACE PROPERTIES
The following properties affect the operation of the Find and Replace commands.
Online Help
33
Komentarze do niniejszej Instrukcji