几个关于处理字符串的问题

1、如何抠出一个字符串中的数字，比如：一个字符串为‘sdfew235sad’，怎么才能变为‘23.5 sad',或者‘2.3.5.sad’
2、如何获得一句中文的汉语拼音或者头字母，比如‘今天是周末’变为‘jintianshizhoumo’或‘jtszm’

5 个解决方案

#1

up

#2

第1　个应该不难
不过你讲得不太清楚啊，sdfew235sad’，怎么才能变为‘23.5 sad',或者‘2.3.5.sad’
数字后面的字母都保留？小数点怎么确定在哪个位置？
第2个就不懂啦
有把提取中文的汉语拼音的函数呢，呵呵

#3

第2个问题
-----------------------------------
function Tfrmaddry.GetPYIndexChar(hzchar:string):char;//HZCHAR是单个汉字,
begin
  case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
      $B0A1..$B0C4:result:='A';
      $B0C5..$B2C0:result:='B';
      $B2C1..$B4ED:result:='C';
      $B4EE..$B6E9:result:='D';
      $B6EA..$B7A1:result:='E';
      $B7A2..$B8C0:result:='F';
      $B8C1..$B9FD:result:='G';
      $B9FE..$BBF6:result:='H';
      $BBF7..$BFA5:result:='J';
      $BFA6..$C0AB:result:='K';
      $C0AC..$C2E7:result:='L';
      $C2E8..$C4C2:result:='M';
      $C4C3..$C5B5:result:='N';
      $C5B6..$C5BD:result:='O';
      $C5BE..$C6D9:result:='P';
      $C6DA..$C8BA:result:='Q';
      $C8BB..$C8F5:result:='R';
      $C8F6..$CBF9:result:='S';
      $CBFA..$CDD9:result:='T';
      $CDDA..$CEF3:result:='W';
      $CEF4..$D188:result:='X';
      $D1B9..$D4D0:result:='Y';
      $D4D1..$D7F9:result:='Z';
    else
      result:=char(0);
  end;
end;

#4

这里有个关于它的使用方法:按拼音检索
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Label2: TLabel;
    Label1: TLabel;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

function GetCharInd(zzchar:string):char;
begin
  case WORD(zzchar[1]) shl 8+WORD(zzchar[2]) of
    $B0A1..$B0C4:result:='A';
    $B0C5..$B2C0:result:='B';
    $B2C1..$B4ED:result:='C';
    $B4EE..$B6E9:result:='D';
    $B6EA..$B7A1:result:='E';
    $B7A2..$B8C0:result:='F';
    $B8C1..$B9FD:result:='G';
    $B9FE..$BBF6:result:='H';
    $BBF7..$BFA5:result:='J';
    $BFA6..$C0AB:result:='K';
    $C0AC..$C2E7:result:='L';
    $C2E8..$C4C2:result:='M';
    $C4C3..$C5B5:result:='N';
    $C5B6..$C5BD:result:='O';
    $C5BE..$C6D9:result:='P';
    $C6DA..$C8BA:result:='Q';
    $C8BB..$C8F5:result:='R';
    $C8F6..$CBF9:result:='S';
    $CBFA..$CDD9:result:='T';
    $CDDA..$CEF3:result:='W';
    $CEF4..$D188:result:='X';
    $D1B9..$D4D0:result:='Y';
    $D4D1..$D7F9:result:='Z';
  else
    result:=#0;
  end;
end;

function DisByStrInd(ListBoxStr:TListBox;StrInd:string):string;
label NotFound;
var
  zzchar :string;
  i,j:integer;
begin
  for i:=0 to ListBoxStr.Items.Count-1 do
  begin
    for j:=1 to Length(StrInd) do
    begin
      zzchar:=ListBoxStr.Items[i][2*j-1]+ListBoxStr.Items[i][2*j];
      if (StrInd[j]<>'?') and (UpperCase(StrInd[j])<>GetCharInd(zzchar))
      then goto NotFound;
    end;
    if result='' then result:=ListBoxStr.Items[i]
    else result:=result+#13+ListBoxStr.Items[i];
NotFound:
  end;
end;

{$R *.DFM}

procedure TForm1.Edit1Change(Sender: TObject);
var
  SelStr:string;
begin
  SelStr:='';
  ListBox2.Items.Text:=DisByStrInd(listBox1,Edit1.Text);
end;

end.

#5

如何抠出一个字符串中的数字//D6测试通过
---------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to length(Self.Edit1.Text) do
    if Self.Edit1.Text[i] in ['0'..'9'] then
      ShowMessage(Self.Edit1.Text[i]);
end;