给你一个函数, 对于将字符串以一个固定字符分开procedure SeparateTerms(s : string;Separator : char;Terms : TStringList); var hs : string; p : integer;begin Terms.Clear; // 清除所有的terms if Length(s)=0 then // 如没有任何分隔字符存在就退出 Exit; p:=Pos(Separator,s); while P<>0 do begin hs:=Copy(s,1,p-1); // 复制 term Terms.Add(hs); // 加入 term Delete(s,1,p); // 清除分隔符 p:=Pos(Separator,s); // 寻找下一个分隔符 end; if Length(s)>0 then Terms.Add(s); // 结尾剩余字符加入 term end; //使用办法var Terms : TStringList;begin
如果不能有选择的存,是不是只能一条一条的做了,这样工作量很大的啊
2。把txt文件用EXE打开,删除不要的列再导入数据库。
在最后面指定字段名列表
然后组合成SQL,
向数据库中导入吧
对于将字符串以一个固定字符分开procedure SeparateTerms(s : string;Separator : char;Terms : TStringList);
var
hs : string;
p : integer;begin
Terms.Clear; // 清除所有的terms
if Length(s)=0 then // 如没有任何分隔字符存在就退出
Exit;
p:=Pos(Separator,s);
while P<>0 do
begin
hs:=Copy(s,1,p-1); // 复制 term
Terms.Add(hs); // 加入 term
Delete(s,1,p); // 清除分隔符
p:=Pos(Separator,s); // 寻找下一个分隔符
end;
if Length(s)>0 then
Terms.Add(s); // 结尾剩余字符加入 term
end;
//使用办法var
Terms : TStringList;begin
Terms:=TStringList.Create;
str1='TEST|44.5|4'
SeparateTerms(str1,'|',Terms);
//
加入你的处理代码
//
Terms.Free;
end;
http://www.csdn.net/expert/topic/1053/1053637.xml?temp=.1185419
12345678,,通
12345677,,关
123531298,王新全,通
123531299,王新全,通
123531300,王新全,关
123531314,,通你可以一行一行地读出来,
然后用SeparateTerms(str1,',',Terms);来处理 Terms[0] 里放的是 用户帐号
Terms[1] 里放的是 用户姓名
Terms[2] 里放的是 用户状态来支持一下下吧
http://www.csdn.net/expert/topic/1053/1053637.xml?temp=.1185419
在备份进直接写成SQL语句,
就不用你这么麻烦了