جدا كردن حروف از اعداد

[hamed_vb]

سلام دوستان من خيلي دنبال بحث جدا كردن اعداد از حروف در Text باكس بودم اما نتيجه اي نگرفتم چون زياد در اين باره بحث نشده به همين خاطر رجوع كردم به شما دوستان گل:

من ميخوام مثلان اين كد رو از اعداد جدا كنم حروفش رو يه جا بنويسه اعدادشم به ترتيب از سمت چپ جدا كنه :


L25DNTWG

[parselearn]

با استفاده از كد اسكي حروف اين كار بايد انجام بشه
در اين كد براي اعداد شرط گذاشته شده
در صورتي كه بخواهيد محدودتر بشه براي قسمت Else با توجه به كد اسكي حروف شرط قرار دهيد.



Private Sub Command1_Click()
'MsgBox Asc(Text1)
Dim s As String, str As String
Dim m As Integer, ints As String
s = "L25DNTWG"
For i = 1 To Len(s)
m = Asc(Mid(s, i, 1))
If m > 48 And m < 57 Then
ints = ints & Mid(s, i, 1)
Else
str = str & Mid(s, i, 1)
End If
Next i

MsgBox ints
MsgBox str
End Sub

[ehsanocx]

کد رو چطوری داخل یه چنین قالبی قرار میدین؟
من همیشه کد هامو پیست می کنم توی کنترل پنل سایت برنامه نویسا قاطی می کنه؟

[parselearn]

کد رو چطوری داخل یه چنین قالبی قرار میدین؟
من همیشه کد هامو پیست می کنم توی کنترل پنل سایت برنامه نویسا قاطی می کنه؟

اگر منظورتون
كادري كه دور كدها كشيده شده
تگ [code] هست كه اين كارو ميكنه
كليدشم در بالاي قسمت ارسال مطلب هست!!!

[aryasoft2872]

به جای کد اسکی از "isnumeric" هم می شه استفاده کرد...

[ahmads]

سلام دوست عزیز، از این کد هم میشه استفاده کرد

سه تا TextBox و یک کلید Command روی فرم قرار بدید . کد خودتون رو در Text1 قرار بدید و از کد زیر استفاده کنید


Private Sub Command1_Click()
For i = 1 To Len(Text1)
x = Mid(Text1, i, 1)
a = IsNumeric(x)
If a Then
Text2 = Text2 & x
Else
Text3 = Text3 & x
End If
Next i
End Sub