22 lines
432 B
Text
22 lines
432 B
Text
put "Weekdays.txt" into myFile
|
|
|
|
put the defaultStringEncoding into savedEncoding
|
|
put "WinLatin1" into the defaultStringEncoding
|
|
|
|
open file myFile
|
|
|
|
repeat forever
|
|
read from file myFile until return
|
|
if it is empty then exit repeat
|
|
split trim(it) by " "
|
|
if the number of items in it is 0
|
|
put ""
|
|
else
|
|
put AbbreviationsAutomatic(it) && it
|
|
end if
|
|
end repeat
|
|
|
|
|
|
close file myFile
|
|
|
|
put savedEncoding into the defaultStringEncoding
|