怎么在delphi中搜索TXT格式文件并把文件名，文件大小，路径存入数据库

Posted 2023-04-16

参考技术A 你的问题的范围太大；
1.TXT文件的搜索范围没有确定；
2.存入什么数据库等等等都还没有说明；
尽管别人可以帮你，可是都只能说明一些大概的方法，不可能把细节都帮你想好的。
提供一些参考资料吧
1.搜索文件的函数和代码
procedure
GetDirsAndFiles(Path:
String;
Strings:
TStrings;
IncludePath:
Boolean
=
True);
//参数Path表示起始目录，如“c:\MyDir”；Strings用来存放搜索的结果；IncludePath指定返回结果是否包括路径，默认为True
var
F:
TSearchRec;
FileName,
RFileName:
String;
begin
//开始搜索
if
FindFirst(Path+'\*.*',
faAnyFile,
F)
=
0
then
repeat
FileName
:=
F.Name;
//“.”和“..”两个内建文件夹对我们来说是毫无用处的，但是这个函数也找出来了
if
(FileName
<>
'.')
and
(FileName
<>
'..')
then
begin
if
IncludePath
then
RFileName
:=
Path
+
'\'
+
FileName
else
RFileName
:=
FileName;
//向字符串列表中添加搜索结果
Strings.Add(RFileName);
//如果是文件夹，则递归
if
F.Attr
and
faDirectory
<>
0
then
//指定新的起始目录
GetDirsAndFiles(Path
+
'\'
+
F.Name,
Strings);
end;
//直到搜索完成
until
FindNext(F)
<>
0;
//最后释放资源
FindClose(F);
end;
2.获得文件大小
var
sr:
TSearchRec;
begin
if
FindFirst('c:\temp\test.dat',
faAnyFile,
sr)
=
0
then
sr.size就是指文件的大小。

c语言中如何读取一个文件word.txt（10M），并把读取的文件写进磁盘中的word1.txt.求代码急急。。。

参考技术A FILE *fp, *fp2;
char line[1024];

if ((fp = fopen("d:\\a.txt", "r")) == NULL)

printf("load file failed.");

if ((fp2 = fopen("d:\\b.txt", "w+")) == NULL)

printf("load file failed.");


while (fgets(line, sizeof(line), fp))

// printf("%s\n",line);

fputs(line, fp2);

getchar();


fclose(fp);
fclose(fp2);追问

大侠，因为我的词库word.txt有差不多2MB,调试时通不过，要中止。。。你改一下咯

追答

FILE *fp, *fp2;
char line[1024];
if ((fp = fopen("d:\\a.txt", "r")) == NULL)

printf("load file failed.");

if ((fp2 = fopen("d:\\b.txt", "w+")) == NULL)

printf("load file failed.");

while (fgets(line, sizeof(line), fp))

printf("%s\n",line);
fputs(line, fp2);


fclose(fp);
fclose(fp2);
printf("Over");

参考技术B #include <stdio.h>
int main()

FILE *pword,*pword1;char a;
if((pword = fopen("word.txt","rt")) == NULL) return 0;
if((pword1= fopen("word1.txt","at")) == NULL) return 0;
do

a = fgetc(pword);
fputc(a,pword1);
while (a != EOF);
fclose(pword);fclose(pword1);
return 1;
追问

大侠，不行噢，
我的要求首先是要把词库word.txt显示在屏幕上，然后把词库存入到word1.txt
中哦，请你在试试啦

追答

在a = fetc (pword);
后面加一个 printf("%c",a);

追问

不能实现我的要求哈，大侠再试试

追答

额```
你自己用一个FSEEK函数搞下吧,每次跳2M的数据

追问

我是初学者还没学到哪哈，大侠，你帮帮忙啊

本回答被提问者采纳