我有大量的字串格式如下： yyyy {xxxx}

其中， yyyy 是英文，xxxx 是中文。我要提取其中 {}中的部分，即 xxxx。我的代碼如下


[code delphi]
var
parB, parE, idx :Integer;
str :string;
begin
// str 是原字串
parB := -1;
parE := -1;
if (str<>'') then
begin
for idx:=0 to Length(str) do
begin
if ((parB=-1) and (str[idx]='{')) then parB := idx;
if ((parE=-1) and (str[idx]='}')) then parE := idx;
end;
end;
if ((parB>=0) and (parE>=0) and (parE>parB)) then
Result := AnsiMidStr(str, parB, parE-parB 1)
else Result := '';
end;
[/code]

這段代碼衹對部分情況適用，對某些情況如 hello {糖} 這樣的例子，由於"糖"的ASCII碼中含有 '}' ，所以會出現解釋錯誤，有甚麼方式處理呢？謝謝

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var parB,parE,idx:Integer;
str,shs:string;
begin
if edit1.Text<>'' then str:=edit1.Text;
parB:=-1;
parE:=-1;
if (str<>'') then
for idx:=0 to Length(str) do begin
if str[idx]='{' then parB:=idx 1;
if str[idx]='}' then parE:=idx;
end;
shs:=copy(str,parB,parE-parB);
showmessage(shs);
end;[/code]

我是這樣用的...測的時候是可以的。

前題是資料是長這樣→ YYYY {XXXX} Y為英文，X為中文。

新手試著寫的，有問題還請多多包含及教導。

編輯記錄

如何分辨中英文夾雜的字串中的中英文

http://delphi.ktop.com.tw/board.php?cid=30&fid=1498&tid=91302

 我的是Delphi2009, String可以處理unicode.
簡單測試如下, Edit2.Text可以正常顯示"糖糖糖".

使用 Pos()或 AnsiPos () 直接找出 "{" 與 "}" 的位置
然後直接 Copy (xxx, start , end)
有多組，就加迴圈


===================引 用 KFC123_60201 文 章===================
我有大量的字串格式如下： yyyy {xxxx}

其中， yyyy 是英文，xxxx 是中文。我要提取其中 {}中的部分，即 xxxx。我的代碼如下


[code delphi]
var
parB, parE, idx :Integer;
str :string;
begin
// str 是原字串
parB := -1;
parE := -1;
if (str<>'') then
begin
for idx:=0 to Length(str) do
begin
if ((parB=-1) and (str[idx]='{')) then parB := idx;
if ((parE=-1) and (str[idx]='}')) then parE := idx;
end;
end;
if ((parB>=0) and (parE>=0) and (parE>parB)) then
Result := AnsiMidStr(str, parB, parE-parB 1)
else Result := '';
end;
[/code]

這段代碼衹對部分情況適用，對某些情況如 hello {糖} 這樣的例子，由於"糖"的ASCII碼中含有 '}' ，所以會出現解釋錯誤，有甚麼方式處理呢？謝謝

怎不用AnsiPos呢?
以下適用Delphi 6
hello {糖} 可正確取得 糖
[code delphi]

var
parB, parE :Integer;
begin
parB := -1;
parE := -1;
if (str<>'') then
begin
parB := AnsiPos('{',str);
parE := AnsiPos('}',str);
end;
if ((parB>=0) and (parE>=0) and (parE>parB)) then
begin
Result:= MidStr(str, parB 1 , parE-parB -1);
end
else Result := '';
end;
[/code]

===================引 用 KFC123_60201 文 章===================
我有大量的字串格式如下： yyyy {xxxx}

其中， yyyy 是英文，xxxx 是中文。我要提取其中 {}中的部分，即 xxxx。我的代碼如下


[code delphi]
var
parB, parE, idx :Integer;
str :string;
begin
// str 是原字串
parB := -1;
parE := -1;
if (str<>'') then
begin
for idx:=0 to Length(str) do
begin
if ((parB=-1) and (str[idx]='{')) then parB := idx;
if ((parE=-1) and (str[idx]='}')) then parE := idx;
end;
end;
if ((parB>=0) and (parE>=0) and (parE>parB)) then
Result := AnsiMidStr(str, parB, parE-parB 1)
else Result := '';
end;
[/code]

這段代碼衹對部分情況適用，對某些情況如 hello {糖} 這樣的例子，由於"糖"的ASCII碼中含有 '}' ，所以會出現解釋錯誤，有甚麼方式處理呢？謝謝

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.