掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルの読み込みについて！ (ID：15601)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
なんか需要ありそうなので書いてみました。 procedure TForm1.messageStr(Line,delimit:integer; str:string); var bufstr:string; begin bufstr:= inttostr(Line) + '行目-' + inttostr(delimit) + '項-' + str; showmessage(bufstr); end; procedure TForm1.Button1Click(Sender: TObject); var ws,wcell:WideString; lineIndex,delimitIndex:integer; i:integer; inDQ:boolean; begin ws:=Memo1.Text; lineIndex :=0; delimitIndex:=0; inDQ:=False; for i:= 1 to Length(ws)-1 do begin if ((ws[i]=#13) or (ws[i]=#10)) and (inDQ=False) then begin end else begin wcell:=wcell+ws[i]; if ws[i]='"' then inDQ:=not inDQ; if (ws[i]=',') and (inDQ=False) then begin messageStr(LineIndex,delimitIndex,wcell); inc(delimitIndex); wcell:=''; end; end; if ((ws[i]=#13) and (ws[i+1]=#10)) and (inDQ=False) then begin messageStr(LineIndex,delimitIndex,wcell); inDQ:=False; wcell:=''; delimitIndex:=0; inc(lineIndex); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.