测试.txt文档,每47行的格式相同,通过代码每47行存为一个txt,txt文档命名为其第一行数据. 代码如下: file='G:\data\测试.txt' openr,lun,file,/Get_Lun ;打开文件fline= file_lines(file)txt_01=47 ;每47行为一个单位for l=0L,fline-1,txt_01 do begin name_s=strArr(1) ;读取第一行 readf, lun, nam
excel vba代码: Sub makeTxt() For i = 1 To 1088'从第1行到1088行(最后一行) On Error Resume Next'出现错误时继续运行脚本 Open "d:\" & Cells(i, 1) & ".txt" For Append As #1'新建文本文档到D盘下,并命名为句柄1,文本文档的文件为excel表格中的第一列中的内容 Print #1, Cells(i, 2)'写入excel表格中的第二列到