求一个截取字符串的算法!!!(帮帮忙啊)

lele8060

....
.......
...........
1321565156aaaaa*****bbbbb1321321321
4t544545aaaaa*****bbbbb654654654
4787787784344aaaaa*****bbbbbuiuy88978989
...........
.........
.....

截取aaaaa   bbbbb  中间的*****
请问怎么才能把所有的*****都截取下来
[em17]

xiaoid

你那些aaaaa bbbbb是固定的不变的还是一个种规律。

lele8060

aaaaa  bbbbb是固定不变的!!!
中间的*****是变化的@!

xiaoid

你可以用instr方法找到aaaaa的位置，以及bbbbb的位置，
再用mid方法得到中间的字串。
比如aaaaaxxxxxxxxbbbbb
用instr找到aaaaa的位置为1
实际的xxxx..xx的位置为1+5
用instr找到bbbbb的位置为14
mid("aa....bbbb",6,14-6)

lele8060

要截取第2串字符呢?
关键是这串字符里面有若干个相同的aaaaa bbbbb

tjpanda88

您看这样写可以满足你的要求吗?
  Dim abc As String, i As Integer, S1 As Integer, S2 As Integer
  abc = "ajsdklfjasl;fdaaaa1234bbbbasklfdjasl;jfdaaaa789bbbb"
  i = 1
  Do While i <> 0
    S1 = InStr(i, abc, "aaaa")
    If S1 = 0 Then Exit Do
    S2 = InStr(S1, abc, "bbbb")
    If S2 = 0 Then Exit Do
    Debug.Print Mid(abc, S1 + 4, S2 - S1 - 4)
    i = S2 + 4
  Loop

liiir1985

那个aaaa和bbbb之间还会出现aaaa或者bbbb吗？
如果不会出现的话用vb.net可以这样实现：
dim abc as string="ajsdklfjasl;fdaaaa1234bbbbasklfdjasl;jfdaaaa789bbbb"
dim temp() as string, I as Int16
temp=abc.split("aaaa")
for i= 1 to temp.getlength(0)
       if instr(temp(i-1),"bbbb")<>0 then temp(i-1)=microsoft.visualbasic.string.left(temp(i-1),instr(temp(i-1),"bbbb"))
next i
然后temp()这个数组保存的就是你要的东西

tttxxx

function CenterStr(Src:String;Before,After:String):String;
var
    Pos1,Pos2:WORD;
    Temp:String;
begin
    Temp:=Src;
    Pos1:=Pos(Before,Temp);
    Delete(Temp,1,Pos1+Length(Before));
    Pos2:=Pos(After,Temp);
    if (Pos1=0) or (Pos2=0) then
    begin
      Result:='';
      Exit;
    end;
    Pos1:=Pos1+Length(Before);
    Result:=Copy(Src,Pos1,Pos2);
end;

lele8060

谢谢高手们帮忙,在此先给大家拜个早年!!!