Memo裡面的內容有沒有辦法匯入DBGrid或匯出到Excel中呢? |
缺席
|
comszmz_61359
一般會員 發表:3 回覆:2 積分:1 註冊:2006-08-25 發送簡訊給我 |
文本文件裡有下面內容:
Mobile No: 19320000 Serial No: 980170001C PUK1: 18114356 Mobile No: 19320001 Serial No: 980170002C PUK1: 94508917 Mobile No: 19320002 Serial No: 980170003C PUK1: 48698754 Mobile No: 19320003 Serial No: 980170004C PUK1: 09928664 Mobile No: 19320004 Serial No: 980170005C PUK1: 41113467 Mobile No: 19320005 想從該.txt文件中讀出PUK1:的列的值到Excel中 目前我是將之讀到Memo中,但有沒有辦法能直接讀到Excel呢? |
comszmz_61359
一般會員 發表:3 回覆:2 積分:1 註冊:2006-08-25 發送簡訊給我 |
procedure TForm1.BitBtn1Click(Sender: TObject);
var s: string; ff: textfile; XLApp,Sheet :Variant; begin opendialog1.Filter:='*.TXT|*.txt'; if opendialog1.Execute then begin memo1.Clear; AssignFile(ff, OpenDialog1.FileName); Reset(ff); while not Eof(ff) do begin readln(ff, s); if leftstr(s,length(edit1.text))=trim(edit1.Text) then begin memo1.Lines.Add(s); end; end; Clipboard.AsText:=StringReplace(Memo1.Text,':',char(9),[rfReplaceAll]); XLApp := CreateOleObject('Excel.Application'); XLApp.WorkBooks.Add; XLApp.WorkBooks[1].WorkSheets[1].Name := 'sheet1'; Sheet := XLApp.Workbooks[1].WorkSheets['sheet1']; Sheet.Paste; XLApp.Visible:=true; CloseFile(ff); end; 自已搞定佐,唔該曬 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |