字符a在字符串的位置的函数?(100分)

路远 · 2003-04-18

AnsiIndexText的功能返回字符串AText在字符串数组AValues中的位置 现。不行

Mymm · 2003-04-18

stringpos

lwowo · 2003-04-19

Bonny · 2003-04-19

edren · 2003-04-19

pos ----- procedure TForm1.Button1Click(Sender: TObject); var i,ii:integer; s,ss,sss:string; begin s:=memo1.Text; //s代表memo1.Text里的内容 i:=pos('%^',s);//%^的乞食位置 ii:=pos('^%',s);//^%的乞食位置 s:=copy(s,i+2,ii-i-2);//指定复制位置，因为‘^%’是两个字符，所以向后＋2， i:=pos('[',s); //[的乞食位置 ii:=pos(']',s);//]的乞食位置 ss:=copy(s,i+1,ii-i-1);//指定复制位置，因为‘[’是1个字符，所以向后＋1， memo2.Lines.Add(ss);//向MEMO2中添加一行，[]中的内容.如果只有一行就memo2.text:=ss; i:=pos('(',s); //（的乞食位置 ii:=pos(')',s);//）的乞食位置 ss:=copy(s,i+1,ii-i-1); //指定复制位置，因为‘（’是1个字符，所以向后＋1， memo3.Lines.Add(ss);  //向MEMO3中添加一行，（）中的内容 i:=pos('{',s); //{的乞食位置 ii:=pos('}',s);//}的乞食位置 sss:=copy(s,i+1,ii-i-1); //指定复制位置，因为‘{’是1个字符，所以向后＋1， memo4.Lines.Add(sss);  //向MEMO3中添加一行，{}中的内容 end;

小笨苯 · 2003-04-19

下面是大名鼎鼎的QStrings单元的两个函数，你直接拷贝过去就可以用了，不仅完全符合你 的要求，而且速度极快！ unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1        : TForm1; const   ToUpperChars: array[0..255] of Char =     (#$00,#$01,#$02,#$03,#$04,#$05,#$06,#$07,#$08,#$09,#$0A,#$0B,#$0C,#$0D,#$0E,#$0F,      #$10,#$11,#$12,#$13,#$14,#$15,#$16,#$17,#$18,#$19,#$1A,#$1B,#$1C,#$1D,#$1E,#$1F,      #$20,#$21,#$22,#$23,#$24,#$25,#$26,#$27,#$28,#$29,#$2A,#$2B,#$2C,#$2D,#$2E,#$2F,      #$30,#$31,#$32,#$33,#$34,#$35,#$36,#$37,#$38,#$39,#$3A,#$3B,#$3C,#$3D,#$3E,#$3F,      #$40,#$41,#$42,#$43,#$44,#$45,#$46,#$47,#$48,#$49,#$4A,#$4B,#$4C,#$4D,#$4E,#$4F,      #$50,#$51,#$52,#$53,#$54,#$55,#$56,#$57,#$58,#$59,#$5A,#$5B,#$5C,#$5D,#$5E,#$5F,      #$60,#$41,#$42,#$43,#$44,#$45,#$46,#$47,#$48,#$49,#$4A,#$4B,#$4C,#$4D,#$4E,#$4F,      #$50,#$51,#$52,#$53,#$54,#$55,#$56,#$57,#$58,#$59,#$5A,#$7B,#$7C,#$7D,#$7E,#$7F,      #$80,#$81,#$82,#$81,#$84,#$85,#$86,#$87,#$88,#$89,#$8A,#$8B,#$8C,#$8D,#$8E,#$8F,      #$80,#$91,#$92,#$93,#$94,#$95,#$96,#$97,#$98,#$99,#$8A,#$9B,#$8C,#$8D,#$8E,#$8F,      #$A0,#$A1,#$A1,#$A3,#$A4,#$A5,#$A6,#$A7,#$A8,#$A9,#$AA,#$AB,#$AC,#$AD,#$AE,#$AF,      #$B0,#$B1,#$B2,#$B2,#$A5,#$B5,#$B6,#$B7,#$A8,#$B9,#$AA,#$BB,#$A3,#$BD,#$BD,#$AF,      #$C0,#$C1,#$C2,#$C3,#$C4,#$C5,#$C6,#$C7,#$C8,#$C9,#$CA,#$CB,#$CC,#$CD,#$CE,#$CF,      #$D0,#$D1,#$D2,#$D3,#$D4,#$D5,#$D6,#$D7,#$D8,#$D9,#$DA,#$DB,#$DC,#$DD,#$DE,#$DF,      #$C0,#$C1,#$C2,#$C3,#$C4,#$C5,#$C6,#$C7,#$C8,#$C9,#$CA,#$CB,#$CC,#$CD,#$CE,#$CF,      #$D0,#$D1,#$D2,#$D3,#$D4,#$D5,#$D6,#$D7,#$D8,#$D9,#$DA,#$DB,#$DC,#$DD,#$DE,#$DF); implementation {$R *.DFM} {   在SourceString中搜索FindString，StartPos是起始搜索位置。如果没搜索到，返回0。区分大小写。   你可以将返回值赋给StartPos，查找下一个匹配的字符串。 } function Q_PosStr(const FindString, SourceString: string; StartPos: Integer): Integer; asm         PUSH    ESI         PUSH    EDI         PUSH    EBX         PUSH    EDX         TEST    EAX,EAX         JE      @@qt         TEST    EDX,EDX         JE      @@qt0         MOV     ESI,EAX         MOV     EDI,EDX         MOV     EAX,[EAX-4]         MOV     EDX,[EDX-4]         DEC     EAX         SUB     EDX,EAX         DEC     ECX         SUB     EDX,ECX         JNG     @@qt0         XCHG    EAX,EDX         ADD     EDI,ECX         MOV     ECX,EAX         JMP     @@nx @@fr:   INC     EDI         DEC     ECX         JE      @@qt0 @@nx:   MOV     EBX,EDX         MOV     AL,BYTE PTR [ESI] @@lp1:  CMP     AL,BYTE PTR [EDI]         JE      @@uu         INC     EDI         DEC     ECX         JE      @@qt0         CMP     AL,BYTE PTR [EDI]         JE      @@uu         INC     EDI         DEC     ECX         JE      @@qt0         CMP     AL,BYTE PTR [EDI]         JE      @@uu         INC     EDI         DEC     ECX         JE      @@qt0         CMP     AL,BYTE PTR [EDI]         JE      @@uu         INC     EDI         DEC     ECX         JNE     @@lp1 @@qt0:  XOR     EAX,EAX @@qt:   POP     ECX         POP     EBX         POP     EDI         POP     ESI         RET @@uu:   TEST    EDX,EDX         JE      @@fd @@lp2:  MOV     AL,BYTE PTR [ESI+EBX]         CMP     AL,BYTE PTR [EDI+EBX]         JNE     @@fr         DEC     EBX         JE      @@fd         MOV     AL,BYTE PTR [ESI+EBX]         CMP     AL,BYTE PTR [EDI+EBX]         JNE     @@fr         DEC     EBX         JE      @@fd         MOV     AL,BYTE PTR [ESI+EBX]         CMP     AL,BYTE PTR [EDI+EBX]         JNE     @@fr         DEC     EBX         JE      @@fd         MOV     AL,BYTE PTR [ESI+EBX]         CMP     AL,BYTE PTR [EDI+EBX]         JNE     @@fr         DEC     EBX         JNE     @@lp2 @@fd:   LEA     EAX,[EDI+1]         SUB     EAX,[ESP]         POP     ECX         POP     EBX         POP     EDI         POP     ESI end; { 功能同上，不区分大小写。使用此函数时，要在Interface部分加入ToUpperChars常量数组 } function Q_PosText(const FindString, SourceString: string; StartPos: Integer): Integer; asm         PUSH    ESI         PUSH    EDI         PUSH    EBX         TEST    EAX,EAX         JE      @@qt         TEST    EDX,EDX         JE      @@qt0         MOV     ESI,EAX         MOV     EDI,EDX         PUSH    EDX         MOV     EAX,[EAX-4]         MOV     EDX,[EDX-4]         DEC     EAX         SUB     EDX,EAX         DEC     ECX         PUSH    EAX         SUB     EDX,ECX         JNG     @@qtx         ADD     EDI,ECX         MOV     ECX,EDX         MOV     EDX,EAX         MOVZX   EBX,BYTE PTR [ESI]         MOV     AL,BYTE PTR [EBX+ToUpperChars] @@lp1:  MOVZX   EBX,BYTE PTR [EDI]         CMP     AL,BYTE PTR [EBX+ToUpperChars]         JE      @@uu @@fr:   INC     EDI         DEC     ECX         JE      @@qtx         MOVZX   EBX,BYTE PTR [EDI]         CMP     AL,BYTE PTR [EBX+ToUpperChars]         JE      @@uu         INC     EDI         DEC     ECX         JE      @@qtx         MOVZX   EBX,BYTE PTR [EDI]         CMP     AL,BYTE PTR [EBX+ToUpperChars]         JE      @@uu         INC     EDI         DEC     ECX         JE      @@qtx         MOVZX   EBX,BYTE PTR [EDI]         CMP     AL,BYTE PTR [EBX+ToUpperChars]         JE      @@uu         INC     EDI         DEC     ECX         JNE     @@lp1 @@qtx:  ADD     ESP,$08 @@qt0:  XOR     EAX,EAX @@qt:   POP     EBX         POP     EDI         POP     ESI         RET @@ms:   MOVZX   EBX,BYTE PTR [ESI]         MOV     AL,BYTE PTR [EBX+ToUpperChars]         MOV     EDX,[ESP]         JMP     @@fr @@uu:   TEST    EDX,EDX         JE      @@fd @@lp2:  MOV     BL,BYTE PTR [ESI+EDX]         MOV     AH,BYTE PTR [EDI+EDX]         CMP     BL,AH         JE      @@eq         MOV     AL,BYTE PTR [EBX+ToUpperChars]         MOVZX   EBX,AH         CMP     AL,BYTE PTR [EBX+ToUpperChars]         JNE     @@ms @@eq:   DEC     EDX         JNZ     @@lp2 @@fd:   LEA     EAX,[EDI+1]         POP     ECX         SUB     EAX,[ESP]         POP     ECX         POP     EBX         POP     EDI         POP     ESI end; procedure TForm1.Button1Click(Sender: TObject); var   iPos: Integer; begin   iPos := Q_PosStr('x', 'wo shi xiaobenben', 1);   if iPos = 0 then     Caption := '没找到！'   else     Caption := '找到了，第一次出现的位置是：' + IntToStr(iPos); end; end.

路远 · 2003-04-19

字符串中最后一个字符a的位置，怎么表示

小笨苯 · 2003-04-19

>>字符串中最后一个字符a的位置，怎么表示 什么意思？你是说从倒数第一个匹配的字符串查起吗？

realLearning · 2003-04-19

for i = length(s) downto 1 do   if s=a then   begin      Result=I;      break;   end;

路远 · 2003-04-19

假如这个字符串有n个a,我得到最后一个a的位置。 我得到a的位置的目的是得到最后一个a后面的字符。要是有直接的函数也行。

小笨苯 · 2003-04-19

？？？？ 那不是很简单吗？稍微变通一下就可以了，用我给你的函数查找到整个字符串的第一个字符的 位置，你自己再加上这个字符串的长度（Length(s)），a后面的那个字符的位置了吗？

路远 · 2003-04-19

是不是想得到字符窗口的反序，然后就可是得到第一个a的位置。 然后得到整个字符的长度，然后相减就得到正序的最后一个a的位置。

小笨苯 · 2003-04-19

你最好举个实际的例子

路远 · 2003-04-20

我的目的得到路径下的文件名，比如说D:/PROGRAM FILES/Borland/Delphi7.0/  我要得到‘Delphi‘这个字符。            我这样                         if childwindowtext[Length(childwindowtext)] = '/' then                  Filepath := Copy(childwindowtext, 1, Length(childwindowtext) - 1) ;//if路径最后一个是'/'则去'/'                  n:=AnsiPos(ReverseString(Filepath),'/')  ;Filepath反序的第一个'/'的位置，及正序最后一个'/'的位置。                  if n<> 0  then                  Filename:=copy(Filepath, (Length(Filepath)-n,'/'+2),(Length(Filepath)-[Length(Filepath)-n,'/'+2]）;//copy最后一个/后面到末尾的字符。                                      我得到的文件有版本号，如何去掉他。现在我得到是Delphi7.0，这个版本号如何去掉？

路远 · 2003-04-20

结束话题了

字符a在字符串的位置的函数?(100分)

路远

Unregistered / Unconfirmed

Mymm

Unregistered / Unconfirmed

lwowo

Unregistered / Unconfirmed

Bonny

Unregistered / Unconfirmed

edren

Unregistered / Unconfirmed

小笨苯

Unregistered / Unconfirmed

路远

Unregistered / Unconfirmed

小笨苯

Unregistered / Unconfirmed

realLearning

Unregistered / Unconfirmed

路远

Unregistered / Unconfirmed

小笨苯

Unregistered / Unconfirmed

路远

Unregistered / Unconfirmed

小笨苯

Unregistered / Unconfirmed

路远

Unregistered / Unconfirmed

路远

Unregistered / Unconfirmed

Similar threads