掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイル、末尾の改行を取り除く方法 (ID:43750)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
var StringList: TStringList; I: Integer; FileHandle: Integer; F: TextFile; S: String; begin //ダミーデータ作成 StringList := TStringList.Create; for I:=0 to 999 do begin StringList.Add('_'+IntToStr(12345)); end; StringList.SaveToFile('C:\OLD.TXT'); StringList.Free; FileHandle := FileCreate ('C:\NEW.TXT'); AssignFile (F,'C:\OLD.TXT'); Reset (F); while not Eof(F) do begin Readln (F,S); FileWrite (FileHandle,S[1],Length(S)); end; CloseFile (F); FileClose (FileHandle);
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.