掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ダブルクォーテーシォンを削除したい (ID：49050)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
皆さん、ありがとうございます。 私の知人が、Mr.XRAYさんのHPを見て作ってくれてましたので、 ここに紹介しておきます。 Enc := TEncoding.GetEncoding(CP_UTF8); S1 := TStringList.Create; try S1.LoadFromFile(FileName,Enc); for i := 0 to S1.Count-1 do begin Stocks1[i]:=S1[i]; S:= Stocks1[i]; while pos('"',S) >0 do begin J := pos('"',S); Delete(S,J,Length('"')); end; Stocks1[i]:=S; filecut(15,Stocks1[i]); for j:=1 to 15 do Stocks2[i,j]:=cutf[j]; end; StocksNo:= S1.Count-1; finally Enc.Free; S1.Free; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.