ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

QA 2009/04/21(ｿｽｿｽ) 16:07:26

ｿｽ@string ｿｽｿｽ PChar ｿｽﾌ違いｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽ驍ｽｿｽﾟに以会ｿｽｿｽﾌようｿｽﾉコｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽStrDispose(P);  ｿｽﾅ「ｿｽｿｽｿｽｿｽｿｽﾈポｿｽCｿｽｿｽｿｽ^ｿｽｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽsｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽｿｽｿｽgｿｽﾌようｿｽﾉ添ｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍＯｿｽjｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽH
ｿｽ@'string PChar' ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽﾌゑｿｽ痰ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ（ｿｽﾎ）ｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは適ｿｽﾘなＱｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
function SpcToZen(S: string): string;//ｿｽQｿｽﾂの費ｿｽｿｽpｿｽ白⇒全ｿｽpｿｽｿｽ
var
  i, L: Integer; //j:    Integer
  P  : PChar;
begin
  if S = '' then Exit;
  L := Length(S);   i := 1;    //j :=0
  P := StrAlloc(L+1);
  try
    while i <= L do
    begin
      if (S[i] = #$20) and (S[i+1] = #$20) then
      begin
        P^ := #$81;    Inc(P); //P[j] := #$81;    P[j+1] := #$40;
        P^ := #$40;
        Inc(i);   Inc(P);      //Inc(i);   Inc(j);
      end
      else
        P^ := S[i];       //P[j] := S[i];
      Inc(i);    Inc(P);  //Inc(i);    Inc(j);
    end;
    P^ := #0;             //P[j] := #0;
    Result := String(P);
  finally
    StrDispose(P);  //ｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽsｿｽGｿｽｿｽｿｽ[
  end;
end;

ｿｽ}ｿｽ`ｿｽKｿｽCｿｽｿｽ 2009/04/21(ｿｽｿｽ) 17:00:36

ｿｽﾅ擾ｿｽｿｽﾉｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾛゑｿｽｿｽｿｽPｿｽﾌ値ｿｽｿｽﾏゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄるかｿｽ轤ｾｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾛゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽPｿｽﾌ値ｿｽﾍ開ｿｽｿｽｿｽｿｽｿｽｿｽﾜでカｿｽGｿｽｿｽｿｽﾆイｿｽPｿｽﾈゑｿｽｿｽﾋ。
ｿｽYｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ、Pｿｽﾌ値ｿｽｿｽJｿｽGｿｽｿｽｿｽｿｽｿｽﾆはなゑｿｽｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽ Inc(P)ｿｽｿｽ1ｿｽﾂ余ｿｽvｿｽB

QAｿｽ`ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽH 2009/04/22(ｿｽｿｽ) 01:13:57

> ｿｽYｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ、Pｿｽﾌ値ｿｽｿｽJｿｽGｿｽｿｽｿｽｿｽｿｽﾆはなゑｿｽｿｽｿｽｿｽｿｽH
ｿｽ@ｿｽﾔ趣ｿｽｿｽｿｽｿｽxｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽ@ｿｽoｿｽｿｽｿｽｿｽｿｽDelphiｿｽｿｽｿｽﾈゑｿｽｿｽﾌで確ｿｽFｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽｿｽｿｽﾈ？
function SpcToZen(S: string): string;
var
  i:     Integer;
  P, Pe: PChar;
begin
  if S = '' then Exit;
  Result := '';
  i := 1;
  P := PChar(S);     //ｿｽ謫ｪ
  Inc(P, Strlen(P)); //ｿｽｿｽｿｽ[
  Pe := P;           //ｿｽｿｽｿｽ[ｿｽｿｽLｿｽｿｽ
  P := PChar(S);     //ｿｽ謫ｪｿｽﾉ戻ゑｿｽ

  while P <= Pe do
  begin
    if (S[i] = #$20) and (S[i+1] = #$20) then
    begin
      Result := Result+#$81+#$40;
      Inc(P);  Inc(i);
    end
    else
      Result := Result+P^;
    Inc(i);    Inc(P);
  end;
end;

QA 2009/04/22(ｿｽｿｽ) 10:01:46

>  while P <= Pe do
  while P < Pe do
ｿｽﾆゑｿｽｿｽﾈゑｿｽｿｽｿｽTstringListｿｽｿｽｿｽﾛ趣ｿｽｿｽｿｽｿｽ髟ｶｿｽｿｽｿｽｿｽｿｽnｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆになゑｿｽﾜゑｿｽｿｽﾋ。
      Result := Result+P^;
ｿｽ@ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌようｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA1mbｿｽｿｽｿｽxｿｽﾌテｿｽLｿｽXｿｽgｿｽﾅゑｿｽYｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾉ費ｿｽﾗてゑｿｽｿｽﾈゑｿｽxｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽiｿｽ‾ｿｽｿｽｿｽbｿｽPｿｽﾊでの話ｿｽjｿｽB

DEKO 2009/04/22(ｿｽｿｽ) 20:45:26

function SpcToZen(S: string): string;
var
  Src, Dst, P: PChar;
begin
  if Length(S) = 0 then
    Exit;
  P := StrAlloc(Length(S)+1);
  Dst := P;
  try
    Src := PChar(S);
    while (Src^ <> #$00) do
      begin
        if (Src^ = #$20) and ((Src+1)^ = #$20) then
          begin
            Dst^ := #$81;
            Inc(Src);
            Inc(Dst);
            Dst^ := #$40;
          end
        else
          Dst^ := Src^;
        Inc(Src);
        Inc(Dst);
      end;
    Dst^ := #$00;
    result := StrPas(P);
  finally
    StrDispose(P);
  end;
end;

ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽｿｽH 2009/04/22(ｿｽｿｽ) 22:01:09

ｿｽざｿｽざｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾅよくｿｽﾈゑｿｽｿｽH

L := Length(S);
SetLength(result, L);
i := 1;
while i <= L do
begin
  if (S[i] = #$20) and (S[i+1] = #$20) then
  begin
    result[i] := #$81;
    result[i + 1] := #$40;
    Inc(i, 2);
  end
  else
    result[i] := S[i];
    Inc(i);
  end;
end;

StringReplaceｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｯｿｽﾇ。

DEKO 2009/04/22(ｿｽｿｽ) 22:35:37

> ｿｽざｿｽざｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾅよくｿｽﾈゑｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽ...ｿｽB

# "ｿｽ}ｿｽ`ｿｽKｿｽCｿｽｿｽ"ｿｽｿｽｿｽｿｽﾌ指ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽし。

monaa 2009/04/23(ｿｽｿｽ) 08:18:55

ｿｽｿｽｿｽｿｽｿｽeｿｽｿｽStringReplaceｿｽﾌ最適ｿｽｿｽｿｽﾅはなゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽﾜで、ｿｽ¥ｿｽ[ｿｽXｿｽﾌエｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽB
ｿｽﾅ適ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾈゑｿｽ
function SpcToZen(S: string): string;ｿｽ@ｿｽｿｽｿｽ
procedure SpcToZen(var S: string):ｿｽ@ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.