一个文件读取问题？请同仁们帮帮忙！谢谢~！

2006-11-29 07:14:39 233 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

关于seed文件的读取方法这个子块是个用二进制存储的数据块，它在固定头端区之后，一般在固定头端区最后一个信息：字段18 （第一个子块）（偏移量，一般是在固定头段区后48字节的位置）数据块和数据块之间一般没有间隔，数据块的识别我是通过文件顺序读取检索关键字的方式处理的。该子块需要获取的内容由：编码格式、字序、数据记录长度等信息（这里有些信息在上面的数据块中已获取到）这里可以同过顺序读取关键字来定位数据块的起始位置和数据块长度（其中数据块长度是包含数据块名称）获取逻辑卷存储长度（这个是后面数据内容中数据块的存储大小（大块））；阅读详情

BA
1，2，356
abc,45,654
EA
BB
456,123,78
asd,a,g
EB
BC

EC
现有以上内容的文本文件一个
如何把BA、EA（标识位）之间的内容插入对应的数据表中
BA、EA 中间内容入A表
BB、EB 中间内容入B表
BC、EC 中间内容入C表
中间的符号区分隔的是要入库的字段值
各位同仁帮帮忙？

...全文

GhidrAssist：AI驱动的逆向工程助手实战指南逆向工程是分析软件内部工作原理、理解二进制代码逻辑的关键技术，广泛应用于软件安全、恶意代码分析和漏洞挖掘等领域。其核心原理在于通过反编译、控制流与数据流分析等手段，将机器码还原为可理解的高级语言表示。传统逆向分析高度依赖人工经验，面对海量代码时效率低下且易出错。随着大语言模型（LLM）技术的发展，其强大的代码理解与推理能力为自动化逆向分析提供了新的可能。通过将LLM与成熟的逆向工程框架（如Ghidra）相结合，可以构建智能辅助系统，实现代码意图的自动解释、变量/函数的智能重命名以及潜在漏洞模式的辅助识别，从阅读详情

sunbiao36

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

sunbiao36 2006-11-30

打赏
举报

谢谢各位！
有没有简单一点的方法？？？

老冯 2006-11-29

打赏
举报

for Idx := 0 to High(_Table[2]) do
begin
//插入C表
//C.Fields[0].Value := _Table[2, Idx][0];
//C.Fields[1].Value := _Table[2, Idx][1];
//C.Fields[2].Value := _Table[2, Idx][2];
end;

老冯 2006-11-29

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
_Table: array[0..2] of array of TStrings;
_Row: array[0..2] of Integer;
_TextFile: TextFile;
S: String;
Tag: Integer;
Idx: Integer;
begin
Tag := -1;
_Row[0] := 0;
_Row[1] := 0;
_Row[2] := 0;
AssignFile(_TextFile, 'C:\Test.txt');
Reset(_TextFile);
while not Eof(_TextFile) do
begin
ReadLn(_TextFile, S);
if S = 'BA' then Tag := 0;
if S = 'BB' then Tag := 1;
if S = 'BC' then Tag := 2;
if (S <> 'BA') and (S <> 'EA') and
(S <> 'BB') and (S <> 'EB') and
(S <> 'BC') and (S <> 'EC') then
begin
case Tag of
0:
begin
if S <> '' then
begin
SetLength(_Table[0], _Row[0]+1);
_Table[0,_Row[0]] := TStringList.Create;
_Table[0,_Row[0]].Delimiter := ',';
_Table[0,_Row[0]].DelimitedText := S;
Inc(_Row[0]);
end;
end;

1:
begin
if S <> '' then
begin
SetLength(_Table[1], _Row[1]+1);
_Table[1,_Row[1]] := TStringList.Create;
_Table[1,_Row[1]].Delimiter := ',';
_Table[1,_Row[1]].DelimitedText := S;
Inc(_Row[1]);
end;
end;

2:
begin
if S <> '' then
begin
SetLength(_Table[2], _Row[2]+1);
_Table[2,_Row[2]] := TStringList.Create;
_Table[2,_Row[2]].Delimiter := ',';
_Table[2,_Row[2]].DelimitedText := S;
Inc(_Row[2]);
end;
end;
end;
end;
end;
for Idx := 0 to High(_Table[0]) do
begin
//插入A表
//A.Fields[0].Value := _Table[0, Idx][0];
//A.Fields[1].Value := _Table[0, Idx][1];
//A.Fields[2].Value := _Table[0, Idx][2];
end;

for Idx := 0 to High(_Table[1]) do
begin
//插入B表
//B.Fields[0].Value := _Table[1, Idx][0];
//B.Fields[1].Value := _Table[1, Idx][1];
//B.Fields[2].Value := _Table[1, Idx][2];
end;

for Idx := 0 to High(_Table[1]) do
begin
//插入C表
//C.Fields[0].Value := _Table[2, Idx][0];
//C.Fields[1].Value := _Table[2, Idx][1];
//C.Fields[2].Value := _Table[2, Idx][2];
end;
end;

王集鹄 2006-11-29

打赏
举报

var
vStringList: TStringList;
vTableName: string;
S: string;
I: Integer;
begin
vStringList := TStringList.Create;
vStringList.Text := Memo1.Text; // 载入text
vTableName := '';
for I := 0 to vStringList.Count - 1 do
begin
S := vStringList[I];
S := StringReplace(S, '，', ',', [rfReplaceAll]); // 去掉全角字符
if (Pos(',', S) <= 0 ) then
begin
if (Copy(S, 1, 1) = 'B') then
vTableName := Trim(Copy(S, 2, MaxInt));
end else if vTableName <> '' then
begin
S := StringReplace(S, ' ', '', [rfReplaceAll]); // 去掉空格
S := StringReplace(S, ',', '","', [rfReplaceAll]);
ShowMessage(Format('Insert into %s("%s")', [vTableName, S])); // 测试用
//ADOQuery1.SQL.Text := Format('Insert into %s(%s)', [vTableName, vStringList[I]]);
//ADOQuery1.ExecSQL; //执行插入语句
end;
end;
vStringList.Free;
end;

sunbiao36 2006-11-29

打赏
举报

liangpei2008(逍遥叹) 的方法应该可以，但是我没有操作过！
请多多指点！
谢谢！

sunbiao36 2006-11-29

打赏
举报

是文本文件！
请高手多多指点啊！

liangpei2008 2006-11-29

打赏
举报

1.这是csv文件吧，建一个DSN，就能和表一样读取了

一个文件读取问题？请同仁们帮帮忙！谢谢~！

相关推荐