PDA

View Full Version : جدا کردن حروف ، عدد و علائم



HM2020
جمعه 27 بهمن 1391, 01:32 صبح
سلام

چطور جدا کردن متن ، عدد و علائم داخل یک رشته از یکدیگر جدا کنم


Str="AsdDF12=-&*%^458K#$Lon

A= کاراکتر حروف
B=اعداد
C=علائم

با تشکر

maxvel
جمعه 27 بهمن 1391, 02:43 صبح
سلام
میتونی یه if کلی بذاری که مثلا اگه برنامه 123 رو دید انقال بده به یه تکست باکس

mehdi.mousavi
جمعه 27 بهمن 1391, 07:11 صبح
سلام چطور جدا کردن متن ، عدد و علائم داخل یک رشته از یکدیگر جدا کنم
Str="AsdDF12=-&*%^458K#$Lon

A= کاراکتر حروف
B=اعداد
C=علائم

با تشکر

سلام.
هر character صرف نظر از اینکه عدد، علامت یا حرف باشه، حاوی یه کدی به اسم ASCII CODE هستش. بر اساس اون جدول، کد اسکی هر Character مشخصه،
بنابراین کافیه تا در یک حلقه، کد اسکی حروف رو بررسی کنید که آیا در بازه اعداد افتاده یا خیر. به بیان دیگه، اگر کد مزبور، 48 تا 57 بود، مشخصه که اون کاراکتر
یکی از اعداد 0-9 هستش. به همین ترتیب حروف و علائم... جدول این کدها رو میتونید در این URL (http://www.ascii.cl/htmlcodes.htm) مشاهده کنید.

موفق باشید.

the king
جمعه 27 بهمن 1391, 12:27 عصر
سلام

چطور جدا کردن متن ، عدد و علائم داخل یک رشته از یکدیگر جدا کنم


Str="AsdDF12=-&*%^458K#$Lon

A= کاراکتر حروف
B=اعداد
C=علائم

با تشکر


Dim Str As String = "AsdDF12=-&*%^458K#$Lon"
Dim A As New System.Text.StringBuilder
Dim B As New System.Text.StringBuilder
Dim C As New System.Text.StringBuilder
For Each ch As Char In Str
If Char.IsLetter(ch) Then
A.Append(ch)
ElseIf Char.IsDigit(ch) Then
B.Append(ch)
Else
C.Append(ch)
End If
Next
MessageBox.Show(String.Format("A = ""{0}""{1}B = ""{2}""{3}C = ""{4}""", A, vbNewLine, B, vbNewLine, C))