پیدا کردن یک رشته خاص در TextBox با تابع InStr

[smart_boy_bnd]

سلام دوستان من یک تکست بوکس دارم که میخوام یک جمله رو از این بیرون بکشم لطفا راهنمایی کنید میخوام در این تکست بوکس جملاتی که اینگونه maryam$rezaya$sadegh هستن بیارم بیرون بریزم در لیست بوکس جای این جملات هم تغییر میکنه که میخواستم با InStr این جملات رو بکشم بیرون که نشد بخاطر اینکه با هر بار رفرش تکس باکس جای جملات تغییر میکنه. کلمات درون این جمله هم تغییر میکنن...راهنمایی کنید ممنون.
یک نکته این هست که همیشه سه کلمه هستن که بین این کلمات $ وجود دارد. maryam$rezaya$sadegh

دوستان نیاز فوری دارم اگه میشه با یه سورس راهنمایی کنید.ممنون

 

[e h s a n]

visual basic?
درست متوجه نشدم اما شما با instr پیدا کن بریز تو یه متغیر آرایه و و بعد اد کن به لیست باکس کجاش مشکله؟
مثلا

InStr([start, ]string1, string2[, compare])

Instr(1, “Visual Basic”,” Basic”)

بعدز درآوردن طولش

حالا اینو تو for next میذاری و میگی مثلا بین هر $ رو پیدا کنه
بعدشم با MID میشه درآوردش
str1 = Mid(str, x, y - x) که میگه از چه کاراکتری چند تا بره جلو...

 

[smart_boy_bnd]

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

 

[e h s a n]

http://www.pscode.com

 

[smart_boy_bnd]

دوسته عزیز اگه امکانش هست با یه سورس کذ راهنمایی کن.ممنون

 

[1 Saeed]

سلام

اگر اصراری بر این نداری که حتما از instr استفاده کنی، میتونی از تابع Split استفاده کنی. به اینصورت:

  Dim textStr As String
  Dim textPart
  Dim splitArray
  
  textStr = "text1$text2$text3"
  splitArray = Split(textStr, "$")
  
  For Each textPart In splitArray
    List1.AddItem textPart
  Next

اگر هم بخوای از instr استفاده کنی باید با این تابع $ رو پیدا کنی توی یه حلقه do while تا موقعی که اینا تو رشته ـت موجودن و بعد از هر موردی که پیدا کرد با استفاده از تابع Mid باید از نتیجه تابع instr تا پیدایش $ بعدی این تابع رو مقداردهی کنی تا بتونی به هدفت برسی.
اگر اینم خواستی بگو بنویسم. ولی در کل split خیلی بهتره و performance بیشتری هم داره.

موفق باشین

 

[King.V@hid]

ممنون از شما دوست عزیز .