热情的人们快来帮助我(50分)

  • 主题发起人 主题发起人 ll11
  • 开始时间 开始时间
L

ll11

Unregistered / Unconfirmed
GUEST, unregistred user!
比如一个文本文件有两行内容：'1', 'help'
'2', 'thank you'
如何把这内容追加到一个表中，表结构table (num char(1),meno char(20))
多谢多谢
 
读出你的文不那内容写进去喽~

你到底什么意图?
 
就是用文本内容追加到数据库中作为一条一条的纪录，热心的wdl请你再仔细说清楚，thank you
 
你的文本有规律吧
都是
'1'
'2'
'3'
.
.
.
.
这样下来的吧?
那就好办了,一行行读出把''的内容分离出来来,然后append到数据库就ok了
 
wdl
请你写一个代码，好么？我是初学
一定送分
 
会用到文本读写函数
字符串替换截取函数
 
wdl 给段源码看看行不行，thank you
 
wdl你怎么这么点忙都不帮？不够富翁意思
 
我不会写，wdl你是不是也不会写？
证明你自己吧
 
我服了你了,稍等,我写代码慢
 
i wait for you forever...................
 
wdl
对了，你那个给我的弹出窗口怎么实现的？？？
 
thank you wdl,quickly!quickly
 
procedure TForm1.Button1Click(Sender: TObject);
var
l_File: TextFile;
l_s: string;
l_Content:string;
begin
AssignFile(l_File, 'c:/1.txt');
Reset(l_File);

while not Eoln(l_File) do
begin
Readln(l_File, l_s);
if pos('''', l_S) <>0 then //这个判断也许是废话 : )
begin
l_Content:=copy(l_s,6,Length(l_s)-6); //这个Length(l_s)-6是取到字符串结尾不把引号带进去
showmessage(l_Content);
//把这个字符串填入数据库了,这个你弄吧
end;
end;
CloseFile(l_File);
end;

那个弹出的对话框来自在线富翁每个人名字旁边的闪电图标,点一下就可以给
这个人发短信了
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
L
急！请问如何从把一个文本文件的内容作为一条纪录追加到dbf表中，送分(0分)
回复
3
查看
117
pyk1
P
I
请问这句做何解？ DFW们进来帮忙看一下 (50分)
回复
4
查看
98
Imfish
I
J
急，小弟刚学，请各位大虾帮忙，我用ADO连SQL SERVER 要实现查询的功能，我该怎么实现啊？表结构如下(50分)
回复
5
查看
205
jockywin
J
C
只有这点分了，全部送出，请热心人帮忙！(115分)
回复
5
查看
117
cjj2
C
后退
顶部