انتخاب متن در متنی دیگر

[mahdivbNET]

سلام به همه ی برو بچه های گل و باحال ایرانویج

یه سوال دارم

من دارم یه برنامه مینویسم که به علتی نمی تونم بگم چی کار میکنه.
من یه متنی رو دارم و توی این متن اطلاعاتی هست که من میخوامشون .
اول اطلاعاتی که من میخوام با $#$ و آخرشون با #$# هست.

من با Instr سعی کردم اما فقط اولی رو پیدا میکنه و بعدی ها رو چک نمیکنه.
اومدم اینجا تا از استادان این کار بپرسم.

یا حق

[Payman62]

سلام.
شما میتونی از instr داخل instr استفاده کنی. یا یه کار دیگه.
First = InStr(1, string1, "$#$")
Second = InStr(First + 3, string1, "$#$")

[mahdivbNET]

کد:

First = InStr(1, string1, "$#$")
Second = InStr(First + 3, string1, "$#$")

آقا پیمان من اینا رو باید داخل یه For بزارم ؟
اخه فقط اولی رو پیدا میکنه.(همئن کاری که خودم کرده بودم)
من میتونم اولی رو بکشم بیرون.مشکل من بعدی هاست که با Instr فقط اولی رو میگیره.
من بازم سعی خودمو میکنم.
خدا کنه به نتیجه برسه

اگه میشه بیشتر توضیح بدید یا یه مثال بزارید

[Payman62]

سلام.
بستگی به کاری که میخوای بکنی داره. از حلقه for هم میشه استفاده کرد. اگه میخوای بلافاصله رو رشته تغییرات بدی میتونی از حلقه do استفاده کنی.

کد:

Dim strTemp As String
Dim i As Integer
    strTemp = "ded$#$44kj$#$r34r4r$#$f44ff$#$f4ff4f4f$#$3ed3d3dd$#$"
    i = 0
    Do
        i = InStr(i + 1, strTemp, "$#$")
        'Type your code here
    Loop While (i <> 0)

البته فرض بر اینه که حداقل 1 بار $#$ تو رشته باشه.

[mahdivbNET]

آقا قربونت