全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1543
推到 Plurk!
推到 Facebook!

如何讀取文字檔中特定的幾個段落,寫入oracle

尚未結案
mingshine
一般會員


發表:3
回覆:3
積分:1
註冊:2002-11-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-10-27 14:59:13 IP:61.218.xxx.xxx 未訂閱
我的文字檔如下: Oct 16 11:10:46 2003 CST f_kern_tcp a_nil_area t_attack p_major pid: 0 ruid: 0 euid: 0 pgid: 0 fid: 0 logid: 0 cmd: '' domain: edomain: srcip: 192.168.1.100 dstip: 61.222.194.238 protocol: 6 srcport: 1234 dstport: 80 srcburb: 1 information: Possible stealth connection attack Oct 16 11:10:46 2003 CST f_kern_tcp a_nil_area t_attack p_major pid: 0 ruid: 0 euid: 0 pgid: 0 fid: 0 logid: 0 cmd: '' domain: edomain: srcip: 192.168.1.101 dstip: 61.222.194.240 protocol: 6 srcport: 2233 dstport: 80 srcburb: 1 information: Possible stealth connection attack 而我只須讀取其中的幾個欄位的值寫入Oracle資料庫 1.date: Oct 16 11:10:51 2003 2.srcip: 192.168.1.100 3.dstip: 61.222.194.240 4.srcport: 2233 5.dstport: 80 請問各位大大,我該如何讀取files並寫入db???
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-10-27 18:24:44 IP:202.39.xxx.xxx 未訂閱
運用 Pos/Copy/Delete 與 Trim 四個 function: 1.date 欄位: 算 CST 字串的 Pos, 取 CST 字串之前的字串 2.srcip: 算 srcip 與 dstip 的 Pos, 取這兩個 Pos 之間的字串 3.dstip: 算 dstip 與 protocol 的 Pos, 取這兩個 Pos 之間的字串 4... 類推 取完之後, 算 attack 字串的 Pos, 將此 Pos 之前的字串(含 attack 字串)刪除 再重覆 1. 的動作, 取得 date/srcip 等欄位的值 --- Everything I say is a lie.
mingshine
一般會員


發表:3
回覆:3
積分:1
註冊:2002-11-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-10-30 16:59:23 IP:61.218.xxx.xxx 未訂閱
請問版主如果我的檔案段落的結尾不完全是attack的話,是否有辦法判斷分行或是其它方法 Oct 16 12:07:02 2003 CST f_kern_tcp a_nil_area t_attack p_major pid: 0 ruid: 0 euid: 0 pgid: 0 fid: 0 logid: 0 cmd: '' domain: edomain: srcip: 192.168.10.23 dstip: 210.52.214.198 protocol: 6 srcport: 2254 dstport: 80 srcburb: 1 information: Possible stealth connection attack Oct 16 12:22:57 2003 CST f_kern_tcp a_nil_area t_attack p_major pid: 0 ruid: 0 euid: 0 pgid: 0 fid: 0 logid: 0 cmd: '' domain: edomain: srcip: 192.168.5.3 dstip: 202.181.137.68 protocol: 6 srcport: 9987 dstport: 110 srcburb: 1 information: Possible connection attack; RST with no data transfer
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-10-30 17:12:54 IP:202.39.xxx.xxx 未訂閱
將整個文字檔的內容當成一個字串來處理, 而不是分行處理, ex:
var
  sl: TStringList;
  sTmp: string;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\xx.txt');
    sTmp := sl.Text;
    // 處理 sTmp 字串即是
  finally
    sl.Free;
  end;
end;
--- Everything I say is a lie.
mingshine
一般會員


發表:3
回覆:3
積分:1
註冊:2002-11-04

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-10-31 13:04:48 IP:61.218.xxx.xxx 未訂閱
再請問版主,我的檔案中是一段一段類似下列的text file Oct 16 11:08:09 2003 CST f_kern_tcp a_nil_area t_attack p_major pid: 0 ruid: 0 euid: 0 pgid: 0 fid: 0 logid: 0 cmd: '' domain: edomain: srcip: 192.168.102.100 dstip: 210.209.15.228 protocol: 6 srcport: 3464 dstport: 80 srcburb: 1 information: Possible stealth connection attack 當我取出第一段中的下列值後,並成功insert 至database,為一筆資料 1.date:Oct 16 11:08:09 2003 2.srcip:192.168.102.100 3.dstip: 210.209.15.228 4.srcport: 3464 5.dstport: 80 我該如何取下一段的值insert 至database,一直到text file 結束
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-10-31 13:22:38 IP:202.39.xxx.xxx 未訂閱
第一取取完後, 就把第一段的字串的 Delete 掉 再重覆同樣的方式取第二段, 取完後再將第二段 Delte 掉 再重覆同樣的方式取第三段, ... --- Everything I say is a lie.
Mickey
版主


發表:77
回覆:1882
積分:1390
註冊:2002-12-11

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-10-31 15:47:00 IP:218.163.xxx.xxx 未訂閱
引言: 第一取取完後, 就把第一段的字串的 Delete 掉 再重覆同樣的方式取第二段, 取完後再將第二段 Delte 掉 再重覆同樣的方式取第三段, ...
在 IdGlobal.pas 中, 有 "Fetch" Function, 參考看看.
系統時間:2024-06-26 22:42:24
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!