20 lines
564 B
Text
20 lines
564 B
Text
Module checkit {
|
|
\\ prepare a file
|
|
\\ Save.Doc and Append.Doc to file, Load.Doc and Merge.Doc from file
|
|
document a$
|
|
a$={First Line
|
|
Second line
|
|
Third Line
|
|
Ελληνικά Greek Letters
|
|
}
|
|
Save.Doc a$, "checkthis.txt", 2 ' 2 for UTF-8
|
|
|
|
Buffer1=Buffer("checkthis.txt")
|
|
Print Len(Buffer1)=Filelen("checkthis.txt")
|
|
b$=String$(Eval$(Buffer1, 0) as UTF8Dec)
|
|
Report b$
|
|
openfile$=FILE$("text file","txt")
|
|
Merge.doc a$, openfile$
|
|
Edit.Doc a$
|
|
}
|
|
checkit
|