خواندن از بین دو عبارت

[alirezash]

سلام دوست عزیز من از طریقه یک پورت اطلاعات زیر را دریافت می کنم

<12>123<12/>
<13>alireza<13/>
<15>system<15/> <16>mina<16/>
چجوری می تونم مقادر 123 و alireza و system و مینا رو داخل 4 تا تکس باکس جدا گونه نشون بدم
ممونم از کمکتون

[crazyfull]

Buf = "<12>123<12/><13>alireza<13/><15>system<15/> <16>mina<16/>"

Text1 = Split(Split(Buf, "<12>")(0), "</12>")(1)
Text2 = Split(Split(Buf, "<13>")(0), "</13>")(1)
Text3 = Split(Split(Buf, "<15>")(0), "</15>")(1)

[alirezash]

دوست عزیز مرسی از راهنمایت اما یک سوال روش بهتری نیست . آخه این ورودی های من ممکنه به 1000 تا برسه و منم نمی دونم چندتا است شاید یک بار 10 تا ورودی باشه شاید هم 10000 بار

[alirezash]

دوست عزیز این کد کار نکرد .
توروخدا به دادم برسین

[unit001]

سلام.

اینم کدی که خودم نوشتم::چشمک:


Public Function FindBetween(ByVal Text As String, ByVal OneSearch As String, ByVal TwoSearch As String) As String
Dim F, Loop1, Loop2 As Long, FindOne As Boolean
For F = 1 To Len(Text)
If FindOne = True Then
If Mid(Text, F, Len(TwoSearch)) = TwoSearch Then Loop2 = F: FindBeetween = Mid(Text, Loop1 + Len(OneSearch), Loop2 - Loop1 - Len(OneSearch)): Exit Function
End If
If Mid(Text, F, Len(OneSearch)) = OneSearch Then Loop1 = F: FindOne = True
Next F
End Function