Confessions Of A Dangerous Mind

או שאני פשוט הוריד את התוכנית ואלמד לבד..

הקוד המדובר , לאחר תיקונים...

Public Class Form1

Public Function hex2dec(ByVal hextext As String) As String
hex2dec = Chr(Convert.ToInt32(Mid(hextext, 2, 2), 16))
End Function

Public Function myAction(ByVal INPUT As String, ByVal Act As Integer) As String
Dim myresult As String
Dim i As Integer

For i = 1 To Len(INPUT)
If Act = 1 Then
myresult = myresult & "%" & Hex(Asc(Mid(INPUT, i, 1)))
Else
If (Mid(INPUT, i, 1) = "%") And (i <= (Len(INPUT) - 2)) Then
myresult = myresult & hex2dec(Mid(INPUT, i, 3))
i = i + 2
Else
myresult = myresult & Mid(INPUT, i, 1)
End If
End If
Next
myAction = myresult
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
TextBox2.Text = myAction(TextBox1.Text, 1)
Else
TextBox2.Text = myAction(TextBox1.Text, 2)
End If
End Sub


End Class

למה הוא מתרגם גם רווח וגם גרשיים כ-%20?

תתעדכן מגיא , יצא עדכון