參考站上sos_admin http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35882 function myresize(str1:string;count:integer):string; 用myresize轉出文字檔格式不對齊 1111 S111庫存現金 1cash on 1112 零用金/週轉金 1petty cash/revolving 1113 S113銀行存款 1cash in .... 1116 在途現金 1cash in ..... A欄 B欄 C欄 D欄 E欄 欄位長度(A:8, B:4, C:48, D:1, E:72) 1.A欄8碼如果只有1111時,在轉出文字檔 1111 S111 (A與B之間應4碼空白)用 記事本查看及KEY入資料A與B只能KEY入2碼,而不是A欄後4碼空白? 2.C欄有48,可是C欄資料長度不一,轉出資料並非48碼 用 for i:=strsize to count-1 do str:=str tmp; result:=str; Str值用記事本C欄看含空白也非48瑪 只有D是1碼是對的 請問先進,如何轉出對齊文字檔不用TAB或,區隔 該欄位如果是(8或48)碼資料,如何完全轉出(8碼或48碼資料含空白值) 如 1111 S111庫存現金(48).... 1cash on(72)... 2222 S211現金(48).... 1cash on(72)... 3333 S311銀存款(48).... 1cash on(72)... 困擾多天,HELP ME

此文字檔在win2000記事本不對齊,在dos或xp記事本就對齊真奇怪? 不知win2000記事本出了什麼狀況(不理它)