mac*_*100 4 string copy progress-4gl openedge
将大约80 KB的巨大文件的内容分配给字符串变量
copy-lob from file "E:\edifact\test\22685.EDI" to text-memptr.
v-edistring = get-string(text-memptr,1).
Run Code Online (Sandbox Code Playgroud)
显示错误尝试超过字符变量的最大大小.
你真的需要mempointer吗?否则你可以直接将COPY-LOB变成LONGCHAR.
DEFINE VARIABLE cString AS LONGCHAR NO-UNDO.
COPY-LOB FROM FILE "E:\edifact\test\PFCONCEPT22685.EDI" TO cString.
Run Code Online (Sandbox Code Playgroud)