Option ausdrücklich an
Allgemeine Kategorie Form1
Privates Unterseeboot Button2_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt Button2.Click
Schwaches hexLine als Schnur
Schwaches strData als Schnur = ""
hexLine = FixStr (textBox1.Text)
Schwaches StrLen als ganze Zahl = hexLine.Length
A als ganze Zahl verdunkeln = 0
Während a < StrLen
strData = strData u. Byte.Parse (hexLine.Substring (a, 2), System.Globalization.NumberStyles.HexNumber)
'output.WriteByte (Byte.Parse (hexLine.Substring (a, 2), System.Globalization.NumberStyles.HexNumber))
a = a + 2
Beenden während
WriteData (strData) benennen
Unterseeboot beenden
Allgemeines VorWriteData (ByVal strData als Schnur)
FileOpen (5, System.AppDomain.CurrentDomain.BaseDirectory u. „hex_final.txt“, OpenMode.Output)
PrintLine (5, strData)
FileClose (5)
Enden-Unterseeboot
Allgemeine Funktion FixStr (ByRef TheString als Schnur) als Schnur
FixStr = TheString
FixStr = ersetzen (FixStr, vbCrLf, "")
FixStr = ersetzen (FixStr, vbTab, "")
FixStr = ersetzen (FixStr, vbCr, "")
FixStr = ersetzen (FixStr, vbLf, "")
FixStr = ersetzen (FixStr, „„, "")
Enden-Funktion
Enden-Kategorie
|