掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイル、末尾の改行を取り除く方法 (ID:43752)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm4.Button1Click(Sender: TObject); var StringList: TStringList; I: Integer; FileHandle: Integer; F: TextFile; S: AnsiString; S2: AnsiString; Buffer: array[0..255] of Char; begin //ダミーデータ作成 StringList := TStringList.Create; for I:=0 to 999 do begin StringList.Add(IntToStr(I) + '_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); if Eof(F) = False then S := S + #13#10; // ■ 追加 FileWrite (FileHandle,S[1],Length(S)); end; CloseFile (F); FileClose (FileHandle); //先頭のデータが入れ替わるだけでサイズは変わらない //FileHandle := FileOpen ('C:\OLD.TXT',fmOpenReadWrite); //FileWrite (FileHandle,S[1],Length(S)); //FileClose (FileHandle); //ので新しくファイルを作らないとサイズを小さくする事はたぶん無理 end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.