狂简单的问题,如何读取某文件的指定行?? 问题同上 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 有很多中方法啊说个简单的吧可以在程序中定义一个stinglist变量将文件读入到里面然后读stinglist的相应的行就行 C语言描述如下,不想改了,算法就是它,自己看吧,呵呵。CString GetRow(char *str,int n) //str是文件名,n是指定行{ CString row; char t1[1024]=""; int filenm=0; FILE *q; if((q=fopen(str,"r"))==NULL)//打开文本文件 { MessageBox(NULL,"打开文件失败",NULL,MB_OK); return row; } while(feof(q)==0) { fgets(t1, 1024,q); row=t1; filenm++; t1[0]='\0'; if(n==filenm) { return row; } } fclose(q); return row;} 可以把这个文件载入到一个Memo中,然后可以取任意一行的值,具体如下:var S:string;memo1.Lines.LoadFromFile('D:\笑话.txt');s:=Memo1.Lines.Strings[4];showmessage(s); 以上办法是有文件大小限制的,大概几十K的文件没有问题,再有就是Memo一定要把WordWrap属性设为False var F:TextFile; ALine:AnsiString; NeedLine,i:integer;begin Assignfile(F,'test.txt'); Reset(F); i:=1; while (not Eof(F)) and (NeedLine+1<>i) do begin ReadLn(F,ALine); i:=i+1; end; ShowMessage(ALine);end; delphi的菜单不让他加快捷键有办法没有? 游戏服务端程序--delphi开发 数值和时间得互换问题 发现hsl转rgb算法中的大问题,请教该如何解决!!!!!!!!!!!!!!!! 读取二进制数据如何在界面上输出?谢谢! 能象使用记录集那样使用存储过程返回的记录集吗? 报表中如何双行显示(非双列显示) 怎么修改ListView里面一行的数据。 请高手调试一下dxMemData增加字段,谢谢 如何通过delphi将foxpro中的.dat文件转换为.txt文件,然后导入informix数据库中? 什么是多线程!其执行过程如何?急急急!!!! 急救!!!
说个简单的吧
可以在程序中定义一个stinglist变量
将文件读入到里面
然后读stinglist的相应的行就行
{
CString row;
char t1[1024]="";
int filenm=0;
FILE *q;
if((q=fopen(str,"r"))==NULL)//打开文本文件
{
MessageBox(NULL,"打开文件失败",NULL,MB_OK);
return row;
}
while(feof(q)==0)
{
fgets(t1, 1024,q);
row=t1;
filenm++;
t1[0]='\0';
if(n==filenm)
{
return row;
}
}
fclose(q);
return row;
}
var
S:string;
memo1.Lines.LoadFromFile('D:\笑话.txt');
s:=Memo1.Lines.Strings[4];
showmessage(s);
F:TextFile;
ALine:AnsiString;
NeedLine,i:integer;
begin
Assignfile(F,'test.txt');
Reset(F);
i:=1;
while (not Eof(F)) and (NeedLine+1<>i) do
begin
ReadLn(F,ALine);
i:=i+1;
end;
ShowMessage(ALine);
end;