是否有任何 4GL 语句用于从磁盘编辑 ASCII 文件,如果有,如何?
Jay
问问题
6690 次
5 回答
8
编辑包括读取文件,可能使用 IMPORT,然后使用 REPLACE() 等字符串函数操作文本,最后可能使用 PUT 写入结果。像这样的东西:
define stream inFile.
define stream outFile.
define variable txtLine as character no-undo.
input stream inFile from "input.txt".
output stream outFile to "output.txt".
repeat:
import stream inFile unformatted txtLine.
txtLine = replace( txtLine, "abc", "123" ). /* edit something */
put stream outFile unformatted txtLine skip.
end.
input stream inFile close.
output stream outFile close.
于 2009-08-28T20:31:47.033 回答
1
就在这里。您可以使用 STREAM 来执行此操作。
/* Define a new named stream */
DEF STREAM myStream.
/* Define the output location of the stream */
OUTPUT STREAM myStream TO VALUE("c:\text.txt").
/* Write some text into the file */
PUT STREAM myStream UNFORMATTED "Does this work?".
/* Close the stream now that we're done with it */
OUTPUT STREAM myStream CLOSE.
于 2009-08-24T18:01:26.730 回答
0
进度可以调用操作系统编辑器:
操作系统命令(“vi /tmp/yoyo.txt”)。
于 2009-09-04T17:24:53.473 回答
0
您可以使用 copy-lob 来读取和写入文件
DEF VAR lContents AS LONGCHAR NO-UNDO.
/* read file */
COPY-LOB FROM FILE "ascii.txt" TO lContents.
/* change Contents, e.g. all capital letters */
lContents = CAPS(lContents).
/* save file */
COPY-LOB lContents TO FILE "ascii.txt".
于 2013-08-21T06:03:02.327 回答
0
我认为对于“编辑”,您的意思是能够读取然后在屏幕上显示文件并操作文件?
如果是这样,那么在这里你有一个简单的,当然,文件的大小不能大于最大值。vchar 变量的容量:
def var fileline as char format "x(250)". /* or shorter or longer, up to you*/
def var filedit as char.
/*you have to quote it to obtain & line into teh charvar*/
unix silent quoter kk.txt > kk.quoted.
input from kk.quoted no-echo.
repeat:
set fileline.
filedit = filedit + (fileline + chr(13) + chr(10)) .
end.
input close.
update filedit view-as editor size 65 by 10.
当然,您可以在编辑后设法保存文件;-)
于 2013-08-30T14:26:29.550 回答