1,072
社区成员
发帖
与我相关
我的任务
分享
integer li_FileNum
string ls_Emp_Input, ls_temp
long ll_FLength
ll_FLength = FileLength("C:\fdff\acc.txt")
li_FileNum = FileOpen("C:\fdff\acc.txt", lineMode!)
IF ll_FLength < 32767 THEN
do while FileRead(li_FileNum, ls_temp) > 0
ls_Emp_Input += ls_temp
loop
messagebox('',ls_Emp_Input)
END IF