تغییر کد ...

[ehsan-68]

سلام به دوستان ...

می خواستم بدونم چطوری میشه این کدو تغییر داد تا فقط عدد با طول رشته مشخص بده ...

و میخوام که به این تابع هم رشته و هم عدد بدم ولی خروجی عدد بده ...


Private Function GenerateHash(ByVal SourceText As String) As String
Dim Ue As New UnicodeEncoding()
Dim ByteSourceText() As Byte = Ue.GetBytes(SourceText)
Dim Md5 As New MD5CryptoServiceProvider()
Dim ByteHash() As Byte = Md5.ComputeHash(ByteSourceText)
Return Convert.ToBase64String(ByteHash)
End Function


اصلا میشه ...

[SHD.NET]

:متفکر: :متفکر:

[ehsan-68]

:متفکر: :متفکر:

:تشویق:

آفرین

[tstsst]

سلام


Dim num As String
For i = 1 To txt.Length - 1
If IsNumeric(Mid(txt, i, 1)) Then
num &= Mid(txt, i, 1)
End If
Next

[ehsan-68]

سلام


Dim num As String
For i = 1 To txt.Length - 1
If IsNumeric(Mid(txt, i, 1)) Then
num &= Mid(txt, i, 1)
End If
Next


خوب الان من اینو کجای کد بذارم چجوری ؟

[tstsst]

جور های زیادی میشه گذاشت مثلا
Private Function GenerateHash(ByVal SourceText As String) As String
Dim Ue As New UnicodeEncoding()
Dim ByteSourceText() As Byte = Ue.GetBytes(SourceText)
Dim Md5 As New MD5CryptoServiceProvider()
Dim ByteHash() As Byte = Md5.ComputeHash(ByteSourceText)
Dim num, txt As String
txt = Convert.ToBase64String(ByteHash)
For i = 1 To txt.Length - 1
If IsNumeric(Mid(txt, i, 1)) Then
num &= Mid(txt, i, 1)
End If
Next
Return num
End Function
یا بعد از گرفتن هش عدد رو جدا کنی مثلا

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim num, txt As String
txt = GenerateHash("...")
For i = 1 To txt.Length - 1
If IsNumeric(Mid(txt, i, 1)) Then
num &= Mid(txt, i, 1)
End If
Next
End Sub

و...
و یا کد تو کلا این جوری بنویسی

Dim num As String = GenerateHash("...")
For i = 1 To num.Length - 1
If Not IsNumeric(Mid(num, i, 1)) Then
num = num.Remove(i, 1)
End If
Next

[shahryari]

سلام به دوستان ...

می خواستم بدونم چطوری میشه این کدو تغییر داد تا فقط عدد با طول رشته مشخص بده ...

و میخوام که به این تابع هم رشته و هم عدد بدم ولی خروجی عدد بده ...


Private Function GenerateHash(ByVal SourceText As String) As String
Dim Ue As New UnicodeEncoding()
Dim ByteSourceText() As Byte = Ue.GetBytes(SourceText)
Dim Md5 As New MD5CryptoServiceProvider()
Dim ByteHash() As Byte = Md5.ComputeHash(ByteSourceText)
Return Convert.ToBase64String(ByteHash)
End Function


اصلا میشه ...

میشه یکم بیشتر توضیح بدید

[ehsan-68]

میشه یکم بیشتر توضیح بدید

ببینید من تو برنامم دو تا تکست باکس دارم میخوام تو یکیش عدد بدم تو یکیش حروف و عدد باشه ...

ولی خروجیم فقط عدد باشه ...

[shahryari]

برای این کار پیشنهاد میکنم کارکتر های غیر عددی رو به کد اسکی تبدیل کنید
یک مثال ساده:


MsgBox(Asc("m"))

مثال فوق کد اسکی حرف m را برمیگرداند که برابر 109 است و الی آخر....