长文本按行均分

hFile ＝ CreateFileA (文件名, #GENERIC_READ, 0, 0, #OPEN_EXISTING, 0, 0) ' 打开文件
GetFileSizeEx (hFile, size) ' 取文件尺寸
.如果真 (size ＝ 0)
返回 (0)
.如果真结束
.如果真 (是否为空 (保存目录) ＝ 假 且 保存目录 ≠ “”)
.如果真 (取文本右边 (保存目录, 1) ≠ “”)
保存目录 ＝ 保存目录 ＋ “”
.如果真结束
创建目录 (保存目录)
.如果真结束
text_ptr ＝ HeapAlloc (GetProcessHeap (), #HEAP_ZERO_MEMORY, size ＋ 8 ＋ 1)
易语言长文本按行均分例子。