如何使用 lotusscript 读写同一个 csv 文件?
How to read and write to the same csv file using lotusscript?
我有一个 CSV 文件。我需要从这个文件中读取每一行,执行某些功能,完成后,我需要在每一行的末尾附加一个类似于“更新”的值。有人可以帮助我使用 LotusScript 实现这一目标吗?我正在使用“打开输入文件”语句来打开和读取文件。我想在每一行执行函数后附加值。
Open xlFilename$ For Input As Filenum%
Do Until Eof(Filenum%)
Line Input #Filenum%, txt$
'perform certain function
**'Would like to append csv here.**
loop
close Filenum
如果要在末尾追加新行,则需要关闭文件,然后 Open 再次将其追加。即,在你的循环之后......
Close Filenum
Open xlFilename$ For Append As Filenum2
Print #Filenum2, stuffYouWantToAppend
但我看到您正在尝试在每一行的末尾附加新列。如果您只是将现有文件视为输入并创建一个您将 Print 用于输出的新文件,事情会变得容易得多。
Open xlFilename$ For Input As Filenum1%
Open xlFilename$ + ".output.csv" For Output As Filenum2%
Do Until Eof(Filenum%)
Line Input #Filenum1%, txt$
'perform certain function
Print #Filenum2%, txt + "," + additionalColumnsGoHere
loop
close Filenum
如果需要,您可以 Kill your input file and then rename your output file back to the original file's name using the Name 语句。
通过以 RANDOM READ WRITE
模式打开文件可能可以就地执行此操作,但这不值得麻烦。
我有一个 CSV 文件。我需要从这个文件中读取每一行,执行某些功能,完成后,我需要在每一行的末尾附加一个类似于“更新”的值。有人可以帮助我使用 LotusScript 实现这一目标吗?我正在使用“打开输入文件”语句来打开和读取文件。我想在每一行执行函数后附加值。
Open xlFilename$ For Input As Filenum%
Do Until Eof(Filenum%)
Line Input #Filenum%, txt$
'perform certain function
**'Would like to append csv here.**
loop
close Filenum
如果要在末尾追加新行,则需要关闭文件,然后 Open 再次将其追加。即,在你的循环之后......
Close Filenum
Open xlFilename$ For Append As Filenum2
Print #Filenum2, stuffYouWantToAppend
但我看到您正在尝试在每一行的末尾附加新列。如果您只是将现有文件视为输入并创建一个您将 Print 用于输出的新文件,事情会变得容易得多。
Open xlFilename$ For Input As Filenum1%
Open xlFilename$ + ".output.csv" For Output As Filenum2%
Do Until Eof(Filenum%)
Line Input #Filenum1%, txt$
'perform certain function
Print #Filenum2%, txt + "," + additionalColumnsGoHere
loop
close Filenum
如果需要,您可以 Kill your input file and then rename your output file back to the original file's name using the Name 语句。
通过以 RANDOM READ WRITE
模式打开文件可能可以就地执行此操作,但这不值得麻烦。