TXT文件轉到paradox上 |
|
尚未結案
|
|
koto
一般會員   發表：4 回覆：2 積分：1 註冊：2005-01-13 發送簡訊給我 |
我想請教一下,我有個txt文件的內容如下:
0006684085 2005--07--14 15:41:57
0006675991 2005--07--14 15:41:59
0006681660 2005--07--14 15:42:02
0006680949 2005--07--14 15:42:04
0006687364 2005--07--14 15:42:06
請問如果把其中的2005--07--14轉到paradox表中的日期格式當中如何做??
另外時間也是同樣做法??
我能做到把全部當成普通字串存入資料庫中
可是就卡在這個問題上
|
|
pillar62
資深會員  發表：9 回覆：324 積分：271 註冊：2002-04-15 發送簡訊給我 |
|
|
koto
一般會員 發表：4 回覆：2 積分：1 註冊：2005-01-13 發送簡訊給我 |
|
|
pillar62
資深會員 發表：9 回覆：324 積分：271 註冊：2002-04-15 發送簡訊給我 |
|
|
h@visli
資深會員  發表：103 回覆：429 積分：431 註冊：2004-02-13 發送簡訊給我 |
不知道我的理解是不是正確。
假設您的Paradox表(Txt2Paradox)結構如下：
Procedure TForm1.Txt2Paradox(filename: string);
var
f: TStrings;
i: integer;
line, cd, dt: string;
begin
f := TStringList.Create;
try
f.LoadFromFile(filename);
for i := 0 to f.Count - 1 do
begin
line := f.Strings[i];
cd := copy(line, 1, pos(' ', line) - 1);
delete(line, 1, pos(' ', line));
dt := copy(line, 1, pos(' ', line) - 1);
delete(line, 1, pos(' ', line));
dt := StringReplace(dt, '--', '-', [rfReplaceAll]);
table1.Append;
table1.FieldByName('code').AsString := cd;
table1.FieldByName('date').AsDateTime := strtodate(dt);
table1.FieldByName('time').AsDateTime := strtotime(line);
table1.Post;
end;
finally
f.Free;
end;
end;
------
------------------------ 博采眾家之長,奉獻綿薄之力 ------------------------ |
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
引言: 我想請教一下,我有個txt文件的內容如下: 0006684085 2005--07--14 15:41:57 0006675991 2005--07--14 15:41:59 0006681660 2005--07--14 15:42:02 0006680949 2005--07--14 15:42:04 0006687364 2005--07--14 15:42:06参考：
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
s,s1,s2,s3:string;
F:TextFile;
ws:string;
SL: TStringList;
begin
if OpenDialog1.Execute then
begin
SL:=TStringList.Create;
Query1.RequestLive:=True; if MessageDlg('请问要将资料表清空吗?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
Query1.close;
Query1.sql.text:='DELETE FROM "F:\delphi\database\myDB\Test4.db"';
try
Query1.execsql;
except
ShowMessage('资料表删除失败');
exit;
end;
end;
AssignFile(f,OpenDialog1.filename);
reSet(f);
while not eof(f) do
begin
Readln(f,s);
SL.Text :=StringReplace(s,' ', #13#10,[rfReplaceAll]);
s1:=sl.Strings[0];
s2:=StringReplace(sl.Strings[1],'--','-',[rfReplaceAll]);
s3:=sl.Strings[2];
Query1.close;
Query1.SQL.Clear;
Query1.SQL.Add('select * From "F:\delphi\database\myDB\Test4.db"');
Showmessage(Query1.SQL.Text);
Query1.Open;
Query1.Edit;
Query1.Append;
Query1.FieldByName('id').AsString :=s1;
Query1.FieldByName('date1').AsString:=s2;
Query1.FieldByName('time1').AsString:=s3;
Query1.Post;
end;
CloseFile(f);
end;
Query1.close;
end;
虽然和h@visli兄类似，给供个参考吧。 为什么我总是慢人半拍~ |
|
koto
一般會員 發表：4 回覆：2 積分：1 註冊：2005-01-13 發送簡訊給我 |
發表時間：2005-07-20 13:50:03
IP:202.175.xxx.xxx 未訂閱
系統時間：2024-06-18 21:39:30
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |