如何在在TXT文本中,每隔20行插入一行文字?

发布网友发布时间：2022-04-23 12:38

共1个回答

热心网友时间：2023-09-04 01:36

一个简单的人工方法是将几万条TXT文本数据复制粘贴到excel中，然后人工在20，40，60，80，。。。插入提示。

这里我用vfp简单的制作如下：
（以下假设你的文件名为my.txt）
建个表叫my1.dbf
字段名是：text 字符类型长度为my.txt文件的行长（一个中文算2个，如果每行的长度不相等，取大于最大的行长即可）
不输入数据。

在vfp命令窗口中，输入：
use my1
modi stru
**加一个字段 no,类型为 N5.1,保存结构修改
append from my.txt sdf
use

则将 my.txt数据导入到 my1.dbf中
以下是 **.prg内容，目的是每隔20行插入一行文字：
运行它即可：
select 1
use my1
copy stru to my2
select 2
use my2
select 1
replace all no with recno()
go top
do while .not. eof()
if mod(recno(),20)=0 then
select 2
append blank
replace text with '第'+str(int(recno()/20),10)+'个20行',no with recno()+0.1
select 1
else
replace no with recno()
endif
skip
enddo
select 1
append from my2
sort on no to my3
select 3
use my3
copy to mmmm.txt fields text sdf
close database
return

则mmmm.txt就是要的答案