سوال در مورد لیست باکس

[Snoopboy]

با سلام .
من یه برنامه نوشتم که یه لیست رو میگره که اون تو اون لیست اسامی هست که چند حرف مونده به آخر نقطه داره مثل "12345.67" حالا می خوام اون نقطه تبدیل بشه به "/" و بعد / رو خودم تنظیم کنم . خواهش می کنم کمک کنید . خیلی فوریه

ممکنه چند تا نقطه تو لیست باشه مثلا "123.345.12" من می خوام که فقط آخرین نقطه به / تبدیل بشه و بعد از / خودم بتونم اضافه کنم چیزی رو اگه می خوام . ممنون:قلب:

[parselearn]

چنين كدي بايد براي محتويات ليست اعمال بشه



Private Sub Command1_Click()
Dim m As Integer
Dim s As String, s1 As String
s = StrReverse("123.45.67")
'm = InStrRev(s, ".")
'MsgBox m - 1
s = Replace(s, ".", "/", 1, 1)
s = StrReverse(s)
Text1.Text = s

s1 = InputBox(s)
'MsgBox s
m = InStr(1, s, "/")
'MsgBox m
s = Left(s, m)
s = s & s1
Text2.Text = s
End Sub

[Snoopboy]

ممنون دوست عزیز . ولی این اون نیست که من می خوام . ببینید مثلا من یه آیتم به اسم 12.123.1234 دارم . حالا می خوام هر عددی بعد از آخرین نقطه هست حذف بشه یعنی 1234 حذف بشه و آخرین نقطه به / تبدیل بشه . ممنون .

[parselearn]

كدي كه من گذاشتم دقيقا همينه بررسي كنيد
بعد از هر تغيير متغيير ها را چك كنيد
مي بينيد كه همينه

[Snoopboy]

فهمیدم . ولی اگه ممکنه تعمیمش بدید واسه لیست باکس

[Snoopboy]

[یلی ممنون از کمکتون . حالا من خواستم که فقط آخرین نقطه رو برداره و هرچی بعد از آخرین نقطه هست حذف کنه . کد رو دستکاری کردم ولی جواب نداد یعنی فقط حرف اول رو تو تکست 2 انداخت . در این مورد هم راهنماییم کنید.

[parselearn]

Dim m As Integer
Dim s As String, s1 As String

For i = 0 To 20

s = List1.List(i)
m = InStrRev(s, ".")
s = Left(s, m - 1)
List2.AddItem s

Next i
End Sub