請問我育轉出許多內容於文字檔,且每一內容由用戶指定起始位置與長度 如 字串STR1,STR2... 起始位置S1,S2... 長度L1,L2...    Writeln(TF,STR1,????這裡不知該如何寫,STR2....) 請教各位先進

用 Copy 函式 自 STR1 字串的 S1 開置開始取出 L1 長度: Copy(STR1, S1, L1); --- Everything I say is a lie.

Writeln( TF,Copy(STR1, min(S1,1), min(L1,Length(STR1-S1) ) ); 用min是为了防止用户输入的数值不符合规范。例如S1或L1大于STR1的长度。

Sorry!可能我表達有些錯誤 我的意思是 如欲寫入 字串ABC,起始位置=1,長度=4 字串DEFG,起始位置=6,長度=4 字串HIJKL,起始位置=11,長度=10 結果如 ABC DEFG HIJKL 12345678901234567890 用Writeln不知該如何寫

感覺您的問題是像格式化字串. 在 Delphi 可用 Format 這個 function fstr = Format("%4s%5s%6s", "aaa", "bbb", "ccc); 因為手邊沒 Delphi, 沒法試 有錯，請各位幫忙改正 ^^b -- Regards, Skyer

------
--
Regards,
Skyer

再請問 1.用write如何在最後換行 2.有無關於Format("%4s%5s%6s",這一段之參考資訊 因為我想可能需要Skyer所提及之方式 thanks

1.用 writeln 就是會自動換行, 會在最後加上換行符號 2. 先將你的字串, 依照格式串起來, 全部存到同一個 string 中, 然後 writeln(UrFile,UrString); UrString = Str1 Str2 Str3 = 'ABC ' 'DEFG ' 'HIJKL ' = 'ABC DEFG HIJKL ' 發表人 - syntax 於 2003/10/29 03:59:16

我主要是做一個設定有轉出欄位,,起始位置,長度之轉出文字檔,如 以前在VB上我是用Print

提供一個自己寫的小函數給你參考，在組合字串時還算好用： {*********************************************************************   FixStr 可傳回一個固定長度的字串，並可設定填充的字元及填充的方向(頭、尾)。   備註 1.xStr  傳入之原字串。        2.xChar 欲填充之字元。        3.atFirst 填充方向之判斷。(True 頭、False 尾)        4.xLen  長度。   Example        FixStr('BB','0',False,10)        回傳值為  'BB00000000'        FixStr('BB',' ',False,10)        回傳值為  'BB        ' *********************************************************************} Function FixStr(xStr,xChar:String;atFirst:Boolean;xLen:Integer):String; var   tmpStr:String;   i:Integer; begin   if atFirst then   begin     for i:=Length(xStr) to (xLen-1) do       xStr:=xChar+xStr;   end   else   begin     for i:=Length(xStr) to (xLen-1) do       xStr:=xStr+xChar;   end;   Result:=xStr; end;    希望這對你有所幫助

感謝各位不吝指教 埠過這些應該都只能單一字串 如我亦用過hungyulin所提及之填補起始字元與往後補滿長度 但應還有第二等字串, 所以我還必須想想法子 不過還是謝謝各位 如果有更好之方式希望能不吝指教 為避免該問提懸掛太久,只好先與結案 每一位提供小弟想法理應都與給分 還是謝謝各位