当然你也可以考虑下面这个代码!或者你可以把你的那个文档发给我看看!
由于不知道你的文档有什么特殊的格式,所以不保证这个代码一定好用~~在excel最下栏对应的文档名称上点右键出现一个菜单栏,点击“查看代码”,然后把下面那段代码复制进去,运行就可以了。可能会涉及启用宏之类。中间4000、30、6000这三个参数可以根据你的文档需要实际调整,得到的结果会保存在6000行以后,你再把前面的删除就可以了。
Sub copyrows()
For i = 1 To 4000 '复制前4000行
j = 6000 + (i - 1) * 3 '将复制结果保留在第6000行以后
Data = Rows(i).Value
Rows(j).Value = Data '复制整行数据,注:不能保留格式
Rows(j + 1).Value = Data
Rows(j + 2).Value = Data
Next i
End Sub
#include <stdio.h>#include <stdlib.h>#define LINE 1024char *ReadData(FILE *fp, char *buf){return fgets(buf, LINE, fp)//读取一行到buf}void someprocess(char *buf){printf("%s", buf)//这里的 *** 作你自己定义}int main(){FILE *fpchar *buf, filename[20], *pprintf("input file name:")gets(filename)if ((fp=fopen(filename, "r"))==NULL) {printf("open file error!!\n")return}buf=(char*)malloc(LINE*sizeof(char))while(1) {p=ReadData(fp, buf)//每次调用文件指针fp会自动后移一行if(!p)//文件读取结束则跳出循环breaksomeprocess(buf)}return 0}程序执行效果与1.txt的内容显示完全一致。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)