掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Unicode形式のテキストファイルの空行を削除する方法 (ID：24732)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
リトルエンディアン、改行はCRLF($000D $000A)限定。 var pT, pC, pL: PChar; FirstLine: Boolean; begin with TMemoryStream.Create do try LoadFromFile(元ファイル); pT := Memory; pL := pT + Size; pC := pT; FirstLine := True; while pC < pL do begin if pC^ = #$0D then begin if FirstLine then begin FirstLine := False; while (pC^ = $0D)and(pC < pL) do inc(pC, 4); end else begin while ((pC+4)^ = #$0D)and(pC < pL) do inc(pC, 4); end; end; pT^ := pC^; inc(pT); inc(pC); pT^ := pC^; inc(pT); inc(pC); end; Size := pT - PChar(Memory); SaveToFile(空行削除ファイル); finally Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.