L
luoda
Unregistered / Unconfirmed
GUEST, unregistred user!
在VFP中能用“COPY TO ***.TXT SDF（LIMITED）”实现表到
文本文件的转换，如何用DELPHI程序实现此功能？
文本文件的转换，如何用DELPHI程序实现此功能？
A
Another_eYes
Unregistered / Unconfirmed
GUEST, unregistred user!
用batchmove控件. source指向的table是ttDBase或者ttFoxpro型,
destination 指向的table选ttASCII型.
destination 指向的table选ttASCII型.
A
Another_eYes
Unregistered / Unconfirmed
GUEST, unregistred user!
啊? 问了两遍?
我还以为我的回答没有贴上呢.
我还以为我的回答没有贴上呢.
C
cytown
Unregistered / Unconfirmed
GUEST, unregistred user!
还可以直接创建:
var
txt:tstrings;
i:integer;
x:string;
begin
txt:=tstringlist.create;
with table1 do
begin
while not eof do
begin
x:='';
for i:=0 to fieldcount-1 do
x:=x+field+#39; //#39 is tab??? forgot:-(
txt.add(x);
next;
end;
end;
txt.savetofile('test.txt');
var
txt:tstrings;
i:integer;
x:string;
begin
txt:=tstringlist.create;
with table1 do
begin
while not eof do
begin
x:='';
for i:=0 to fieldcount-1 do
x:=x+field+#39; //#39 is tab??? forgot:-(
txt.add(x);
next;
end;
end;
txt.savetofile('test.txt');
C
cytown
Unregistered / Unconfirmed
GUEST, unregistred user!
还可以直接创建:
var
txt:tstrings;
i:integer;
x:string;
begin
txt:=tstringlist.create;
with table1 do
begin
while not eof do
begin
x:='';
for i:=0 to fieldcount-1 do
x:=x+field.asstring+#39; //#39 is tab??? forgot:-(
txt.add(x);
next;
end;
end;
txt.savetofile('test.txt');
var
txt:tstrings;
i:integer;
x:string;
begin
txt:=tstringlist.create;
with table1 do
begin
while not eof do
begin
x:='';
for i:=0 to fieldcount-1 do
x:=x+field.asstring+#39; //#39 is tab??? forgot:-(
txt.add(x);
next;
end;
end;
txt.savetofile('test.txt');
H
hubdog
Unregistered / Unconfirmed
GUEST, unregistred user!
to eyes:
paradox to asii的转换用batchmove好象不行，dbf to paradox 可以。
paradox to asii的转换用batchmove好象不行，dbf to paradox 可以。
A
Another_eYes
Unregistered / Unconfirmed
GUEST, unregistred user!
#39怎么会是tab. #32--#127都是可打印字符. 我记得#9是tab
L
luoda
Unregistered / Unconfirmed
GUEST, unregistred user!
非常感谢各位，我想先试试。
L
luoda
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
C
cytown
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵, 39是', 9是tab
