سوال در مورد textbox

[renjerk]

دوستان من 2 تکست باکس دارم که در تکست باکس 1 یک جمله هست که میخوام کلمه آخرش به تکست باکس 2 بره و اون کلمه که به تکست باکس 2 رفت از تکست باکس 1 حذف بشه
مثال جمله من در تکست باکس 1 اینجور هست که میخوام آخرین کلمه بعد از علامت # حذف بشه:
day#Today#dvdday#listdddayC#‎atikarday#220#elema nte#400
اون کارایی که گفتم میخوام رو اون کلمه 400 آخر انجام بشه دوستان راهنمایی کنید ممنون.

[daniyal_1363]

دوستان من 2 تکست باکس دارم که در تکست باکس 1 یک جمله هست که میخوام کلمه آخرش به تکست باکس 2 بره و اون کلمه که به تکست باکس 2 رفت از تکست باکس 1 حذف بشه
مثال جمله من در تکست باکس 1 اینجور هست که میخوام آخرین کلمه بعد از علامت # حذف بشه:
day#Today#dvdday#listdddayC#‎‎‎atikarday#220 #elemante#400
اون کارایی که گفتم میخوام رو اون کلمه 400 آخر انجام بشه دوستان راهنمایی کنید ممنون.

سلام

من یه زمانی برای تفکیک پیغام فرستاده شده از طرف Client به Server از راه زیر استفاده می کردم ، میتونین از روش نمونه برداری کنید






i1 = 0
For i = 1 To (Len(Text1.Text))
If Mid$(Text1.Text, i, 1) = "#" Then
i1 = i1 + 1
i = i + 1
End If
Select Case i1

Case 0
pcname = Trim(pcname) + Mid$(Text1.Text, i, 1)
Case 1
ipname = Trim$(ipname) + Mid$(Text1.Text, i, 1)
Case 2
ptime = Trim$(ptime) + Mid$(Text1.Text, i, 1)
Case 3
pmb = Trim$(pmb) + Mid$(Text1.Text, i, 1)
Case 4
ftime = Trim$(ftime) + Mid$(Text1.Text, i, 1)
Case 5
mod1 = Trim$(mod1) + Mid$(Text1.Text, i, 1)
End Select
Next




تو این کد تعداد نوشته های جدا شده توسط "#" ثابته (یعنی 6 نوشته توسط "#" از هم متمایز شده و در 6 متغییر ریخته میشه)

مشکل داشتین در خدمتم:چشمک:

[M.T.P]

با سلام :قلب:


Dim S As String
Dim i As Integer
If Text1.Text = vbNullString Then Exit Sub
S = StrReverse(Text1.Text)
i = InStr(1, S, "#")
If i = 0 Then Text2.Text = "Wrong input": Exit Sub
S = Mid(S, 1, i - 1)
Text2.Text = StrReverse(S)
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - Len(S) - 1)

[renjerk]

با سلام :قلب:


Dim S As String
Dim i As Integer
If Text1.Text = vbNullString Then Exit Sub
S = StrReverse(Text1.Text)
i = InStr(1, S, "#")
If i = 0 Then Text2.Text = "Wrong input": Exit Sub
S = Mid(S, 1, i - 1)
Text2.Text = StrReverse(S)
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - Len(S) - 1)
حالا همینکار رو با یک لیست باکس چجوری میتونم انجام بدم یعنی تمام آیتم های لیست باکس تمام کلمات آخرشون که بعد از # هستن حذف بشن راهنمایی کنید لطفا. ممنون

[M.T.P]

Dim S As String
Dim i As Integer
Dim C As Integer
For C = 0 To List1.ListCount - 1
If List1.List(C) = vbNullString Then Exit Sub
S = StrReverse(List1.List(C))
i = InStr(1, S, "#")
If i = 0 Then Exit Sub
S = Mid(S, 1, i - 1)
List1.List(C) = Mid(List1.List(C), 1, Len(List1.List(C)) - Len(S) - 1)
Next C

[iltsaetsi]

به کمک تابع InStrRev می توان از انتهای رشته جستجو را آغاز کرد .
نمونه کد:

dim t
t=Text1.Text
Text1.Text = Mid(t, 1, InStrRev(t, "#"))
Text2.Text=Mid(t,InStrRev(t, "#"),Len(t)-InStrRev(t, "#"))

[ali_habibi1384]

همون جوابی که واسه قبلی بدست آوردی رو یک تابع کن که یک ورودی می گیره و انتهای رشته رو حذف می کنه ، سپس از ابتدای لیست باکس تا انتها اونو پیمایش کن و هر بار اون تابع رو صدا بزن و پارامتری که از لیست خوندی بهش پاس بده.