پیدا کردن عدد

[alirezash]

سلام دوستان عزیز
چجوری میشه یک عدد رو از داخل یک متن جدا کرد .
مثلاً " با سلام خدمت شما کاربر گرامی کد رمز شما 9856322 است .
ممکنه این متن تغییر کنه
می خواهم این عدد "9856322 " رو داخل یک تکس باکس نشون بدم

[vb study]

سلام
با استفاده از جداسازی حرف به حرف و کد اسکی انها می تونی عددت رو جدا کنی

[alirezash]

دوست عزیز . این متن همش در حال تغییره . کلمه مشخصی از متن رو ندارم

[zoofa]

سلام
با تابع mid مي تونيد يك قسمتي از متن رو جدا كنيد

[vb study]

مهم نیست متنش تغییر کنه این روند عدد رو از دیگر کلمات جدا می کنه

Private Sub CommandButton1_Click()
Text1 = "salam 1388"
a = Len(Text1)
For i = 1 To a
b = Mid(Text1, i, 1)
If 48 <= Asc(b) And Asc(b) <= 57 Then
n = n & b
End If
Next i
TextBox1.Text = n
End Sub

[xxxxx_xxxxx]

سلام تابع Val مقدار عددی یک رشته رو برامون برمیگردونه. یه خاصیت خوب و مفیدی که داره اگر ما بهش یک رشته بدیم که با عدد شروع بشه و در ادامه اش حروف الفبایی (غیرعددی) باشه برامون مقدار عددی رو تا جاای برمیگردونه که عدد وجود داره.
شما می تونید برای این کار کل رشته رو پیمایش کنید. از ابتدا تا اولین کاراکتری که عددی هست. اونوقت Val مابقی رشته رو محاسبه کنید که برابر هست با کل عدد.

موفق باشید/

[zoofa]

ببينيد اين به درد مي خوره:


Dim i As Integer
Dim s As String
For i = 1 To Len(TextBox1.Text)
If (Asc(Mid(TextBox1.Text, i, 1)) >= 48) And (Asc(Mid(TextBox1.Text, i, 1)) <= 57) Then
s = s & Mid(TextBox1.Text, i, 1)
End If
Next
TextBox2.Text = s

[xxxxx_xxxxx]

For i = 1 To Len(Text1)
If IsNumeric(Mid(Text1, i, 1)) = True Then n = Val(Mid(Text1, i, Len(Text1))): Exit For
Next i
MsgBox n

:چشمک:

[alirezash]

دوست عزیز من این متنو از یک فایل تکس می خونم بصورت زیر

Private Sub Form_Load()
Dim intfnum As String
Dim intctr As String
intfnum = FreeFile
Open "c:\1.txt" For Input As #intfnum
Do While Not EOF(intfnum)
Input #intfnum, x$, y$, z$
List1.AddItem x$
List2.AddItem y$
List3.AddItem z$
Loop
Close
End Sub
حالا چجوری میتونم به همین شکل ذخیره کنم.
تو خوندنش مشکلی نیست . اما تو سیو کردن

[vb study]

ممکنه واضح تر توضیح بدین