ダブルクォーテーシォンを削除したい (ID:49060)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

作りました。
よろしくです。

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FileGet(S:string);
    procedure FileCut(v:integer; b:String);

private
    { Private 宣言 }

public
    { Public 宣言 }
  end;

var
  Form1: TForm1;
  St:array[1..9999,1..15] of string;
  CutF:array of string;
  StNo:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  S,s1,FileName : string;
  i,J,K:integer;
begin
  Filename:=Edit1.text;
  memo1.Lines.LoadFromFile(filename);
  s:=memo1.Text;
  S := StringReplace(S, '"', '', [rfReplaceAll]);
  memo1.Text:=S;
  memo1.Lines.SaveToFile(filename);
  showmessage('もう一度LoadFromFileで読み込みます。');
  memo1.Lines.LoadFromFile(filename);

showmessage('分解しながら読み込んで繋ぎ合わせます。');
  memo1.Lines.clear;

FileGet(filename);
  for I :=1 to StNo do
  begin
    s1:='';
    for j:=1 to 5 do s1:=s1+St[i,j]+',';
    memo1.lines.add(S1);
  end;
end;

procedure Tform1.FileGet(S:string);
var
  FileName,InBuff:string;
  F:textfile;
  j,i:integer;
begin
  FileName:=S;
  if not FileExists(FileName) then
    begin
      showmessage(FileName+'が見つかりません');
       exit;
    end ;
  AssignFile(F, FileName); Reset(F);
  i:=0;
  repeat
    inc(i);   readln(F,InBuff);
    filecut(5,inbuff);
    for j:=1 to 5 do St[i,j]:=cutf[j];
  until eof(f);
  StNo:=i;
  CloseFile(F);
end;

procedure Tform1.FileCut(v:integer; b:String);
var
  i,j:integer;
  q:string;
begin
  q:=b+',';
  setlength(CutF,v+1);
  for i:=1 to v do
    begin
     j:=pos(',',q);
     CutF[i]:=Copy(q,0,j-1);
     q:=copy(q,j+1,length(q)-j);
     if (q='') and (i<>V) then exit;
    end;
end;
end.

←解決時は質問者本人がここをチェックしてください。

戻る