B
babygo
Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何把文本文件导入到sql表中！
S
sgs125
Unregistered / Unconfirmed
GUEST, unregistred user!
别人答的贴给你
1）
sl:=TStringList.Create;
try
sl.LoadFromFile(Hanzi.txt&apos
;
adotable1.open;
for i:=0 to sl.Count-1 do
begin
adotable1.append;
adotable1.fieldbyname(aaa):=sl.strings;
adotable1.post;
end;
finally
adotable1.close;
sl.Free;
end;
2）用Delphi实现将纯文本资料转入数据库
在我们日常工作中，常会碰到这样一个难题：一大堆
收集好的纯文本格式，比较规整的资料怎样才能将它们分
离，转到自己已经建好的数据库中进行管理呢？
例如，有一段人事档案资料archive．txt，内容如下：
小许男21工程师
小吴女23助理工程师
小蔡男22助理工程师
小牟女22工程师
要将它转入数据库archive．dbf中，archive．dbf结构如下：
姓名，性别，年龄，职称
怎么办呢？现在通过使用delphi编程，很好地解决了
这个难题。Delphi提供了许多功能强大，丰富的字符处理
函数和过程，常用的有：
（1）functionLength（S：String）：Integer
／／返回串的长度
（2）functionCopy（S：String；Index，Count：Integer）：String
／／给出一个字符串中串的拷贝
（3）functionPos（Substr：String；S：String）；Integer
／／查找子串在字符串中的位置
（4）ProcedureDelete（VarS：String；Index，Count：Inte?ger）；
／／从一个字符串中去除子串
利用Delphi提供的已有函数和过程基础上编制自己的三个函数，实现了纯文本格式资料转入数据库功能。只要Delphi支持的数据库都可以支持。
archive．txt中每行数据为一个字符串，字符串中每个被分割的数据为一个字段，分割每个字段的字符为分割符，这里是空格，也可以是，、；、＃等符号。具体思想是：先将字符串进行调整，然后把串中每个字符同分割符比较，将不是分割符的字符追加到MyStr串中，最后得到一个字段的内容。通过一个循环，就可以将一个字符串分成几个字段。
FunctionRegulate（aString，Sepchar：string）：string
／／去掉多余的分割符，规范字符串
FunctionGetSubStr（varsString：string；SepChar：String）：String；
／／得到字符串中一个子串
／／因要改变参数aString的值，所以将它用var定义
FunctionGetSubStrNum（aString，SepChar：String）：Integer；
／／计算一个字符串要被分割成几个字段。
参数：aString是所需分割的一个字符串，
SepChar是分割符。
FunctionRegulateStr（aString：String；Sepchar：String）：String；
var
i，Num：Integer；
Flag：Boolean；
MyStr，TempStr：String；
begin
Flag：=False；／／进行标志，去除多余的分割符
Num：=Length（aString）；／／计算aString串的长度
for i：=1 to Num do
begin
TempStr：=Copy（aString，i，1）；／／取aString串中的一字符
if TempStrΙΛ SepChar then
begin
MyStr：=MyStr＋TempDtr；
Flag：=True；
end
else
if（Flag=True）then
begin
Mystr：=Mystr＋TempSrt；
Flag：=False；
end；
end；
if MyStr［Length（MyStr）］ΙΛSepChar then
MyStr：=MyStr＋SepChar；
RegulateSrt：=MyStr；
end；
FunctionGetSubStr（varaString：String，SepChar：Strign）：String；
var
Mysrt：String；
StrLen：Integer；
SepCharPso：Integer；
begin
StrLen：=Length（aString）；
SepCharPos：=Pos（SepChar，aString）；
／／计算分割符在子串中的位置
MyStr：=Copy（aString，1，SepCharPos－1）；
／／将分割符前所有字符放到mystr串中
Delete（aString，1，SepCharPos）；
／／除去分割符和分割符前的子串
GetSubStr：ΚMyStr；／／返回一个字段
end；
FunctionTforml．GetSubStrNum（aString：String；SepChar：String）：Integer；
var
i：Integer；
StrLen：Integer；
Num：Integer；
begin
StrLen：=Length（aString）；
Num：=0；
for i：=1，to StrLen do
if Copy（aString，i，1）=SepChar then
Num：=Num＋1；
GetSubSrtNum：=Num；
end：
有了上面三个函数，现在介绍一下具体的应用：
1．首先建立一个窗体Forml，加入一个RichEditl（或Menol），一个按Buttonl和一个Tablel，设置Tablel的属性：
Tablell．DataBase=′c：ιArchivs′
Tablell．TableName=′Archive．dbf′
2．分别加入以下程序：
Const Space=′′
ProcedureTForml．FormCreate（Sender：Tobject）；
begin
RichRditl．Lines．LoadFromFile（′Archive．txt′）；
end；
ProcedureTForml．Button1Click（Sender：Tobject）；
var
i，j：Integer；
MyLine：String；
begin
with Tablel do
begin
Open；
for i：=0 to RichEditl．Lines．Count－1 do
begin
MyLine：=RegulateStr（Richeditl．Lines［i］，Space）；
for j：=1 to NumToken（MyLIne，Space）do
begin
Append；
fileds［j－1］．aString：ΚGetSubSrt（MyLine，Space））；
post；
end；
end；
end；
end；
1）
sl:=TStringList.Create;
try
sl.LoadFromFile(Hanzi.txt&apos
;adotable1.open;
for i:=0 to sl.Count-1 do
begin
adotable1.append;
adotable1.fieldbyname(aaa):=sl.strings;
adotable1.post;
end;
finally
adotable1.close;
sl.Free;
end;
2）用Delphi实现将纯文本资料转入数据库
在我们日常工作中，常会碰到这样一个难题：一大堆
收集好的纯文本格式，比较规整的资料怎样才能将它们分
离，转到自己已经建好的数据库中进行管理呢？
例如，有一段人事档案资料archive．txt，内容如下：
小许男21工程师
小吴女23助理工程师
小蔡男22助理工程师
小牟女22工程师
要将它转入数据库archive．dbf中，archive．dbf结构如下：
姓名，性别，年龄，职称
怎么办呢？现在通过使用delphi编程，很好地解决了
这个难题。Delphi提供了许多功能强大，丰富的字符处理
函数和过程，常用的有：
（1）functionLength（S：String）：Integer
／／返回串的长度
（2）functionCopy（S：String；Index，Count：Integer）：String
／／给出一个字符串中串的拷贝
（3）functionPos（Substr：String；S：String）；Integer
／／查找子串在字符串中的位置
（4）ProcedureDelete（VarS：String；Index，Count：Inte?ger）；
／／从一个字符串中去除子串
利用Delphi提供的已有函数和过程基础上编制自己的三个函数，实现了纯文本格式资料转入数据库功能。只要Delphi支持的数据库都可以支持。
archive．txt中每行数据为一个字符串，字符串中每个被分割的数据为一个字段，分割每个字段的字符为分割符，这里是空格，也可以是，、；、＃等符号。具体思想是：先将字符串进行调整，然后把串中每个字符同分割符比较，将不是分割符的字符追加到MyStr串中，最后得到一个字段的内容。通过一个循环，就可以将一个字符串分成几个字段。
FunctionRegulate（aString，Sepchar：string）：string
／／去掉多余的分割符，规范字符串
FunctionGetSubStr（varsString：string；SepChar：String）：String；
／／得到字符串中一个子串
／／因要改变参数aString的值，所以将它用var定义
FunctionGetSubStrNum（aString，SepChar：String）：Integer；
／／计算一个字符串要被分割成几个字段。
参数：aString是所需分割的一个字符串，
SepChar是分割符。
FunctionRegulateStr（aString：String；Sepchar：String）：String；
var
i，Num：Integer；
Flag：Boolean；
MyStr，TempStr：String；
begin
Flag：=False；／／进行标志，去除多余的分割符
Num：=Length（aString）；／／计算aString串的长度
for i：=1 to Num do
begin
TempStr：=Copy（aString，i，1）；／／取aString串中的一字符
if TempStrΙΛ SepChar then
begin
MyStr：=MyStr＋TempDtr；
Flag：=True；
end
else
if（Flag=True）then
begin
Mystr：=Mystr＋TempSrt；
Flag：=False；
end；
end；
if MyStr［Length（MyStr）］ΙΛSepChar then
MyStr：=MyStr＋SepChar；
RegulateSrt：=MyStr；
end；
FunctionGetSubStr（varaString：String，SepChar：Strign）：String；
var
Mysrt：String；
StrLen：Integer；
SepCharPso：Integer；
begin
StrLen：=Length（aString）；
SepCharPos：=Pos（SepChar，aString）；
／／计算分割符在子串中的位置
MyStr：=Copy（aString，1，SepCharPos－1）；
／／将分割符前所有字符放到mystr串中
Delete（aString，1，SepCharPos）；
／／除去分割符和分割符前的子串
GetSubStr：ΚMyStr；／／返回一个字段
end；
FunctionTforml．GetSubStrNum（aString：String；SepChar：String）：Integer；
var
i：Integer；
StrLen：Integer；
Num：Integer；
begin
StrLen：=Length（aString）；
Num：=0；
for i：=1，to StrLen do
if Copy（aString，i，1）=SepChar then
Num：=Num＋1；
GetSubSrtNum：=Num；
end：
有了上面三个函数，现在介绍一下具体的应用：
1．首先建立一个窗体Forml，加入一个RichEditl（或Menol），一个按Buttonl和一个Tablel，设置Tablel的属性：
Tablell．DataBase=′c：ιArchivs′
Tablell．TableName=′Archive．dbf′
2．分别加入以下程序：
Const Space=′′
ProcedureTForml．FormCreate（Sender：Tobject）；
begin
RichRditl．Lines．LoadFromFile（′Archive．txt′）；
end；
ProcedureTForml．Button1Click（Sender：Tobject）；
var
i，j：Integer；
MyLine：String；
begin
with Tablel do
begin
Open；
for i：=0 to RichEditl．Lines．Count－1 do
begin
MyLine：=RegulateStr（Richeditl．Lines［i］，Space）；
for j：=1 to NumToken（MyLIne，Space）do
begin
Append；
fileds［j－1］．aString：ΚGetSubSrt（MyLine，Space））；
post；
end；
end；
end；
end；
B
babygo
Unregistered / Unconfirmed
GUEST, unregistred user!
能不能用SQL语句来达到此功能！
I
Imfish
Unregistered / Unconfirmed
GUEST, unregistred user!
我以前做过一个
是用几个文件操作的函数实现的。功能是将每个文件中的每个类放入库的不同字段
如需要我发给你。
下面是那几个函数
var
f:textfiles;
str:string;
begin
str:='c:/temp/filename.txt';
assignfile(f,str);
reset(f);
readln(f,s);
adoquery1.fieldbyname('分类号').asstring:=trim(s);
~~~~~~~~~~~~~~
~~~~~~~~~
~~~~~~~
END
是用几个文件操作的函数实现的。功能是将每个文件中的每个类放入库的不同字段
如需要我发给你。
下面是那几个函数
var
f:textfiles;
str:string;
begin
str:='c:/temp/filename.txt';
assignfile(f,str);
reset(f);
readln(f,s);
adoquery1.fieldbyname('分类号').asstring:=trim(s);
~~~~~~~~~~~~~~
~~~~~~~~~
~~~~~~~
END
B
babygo
Unregistered / Unconfirmed
GUEST, unregistred user!
请IMFISH把函数发给我好吗？
