[Help]Do not convert to hex!
[Help]Do not convert to hex!
I need a little fix for the hex function right now.
Here is an example of what im trying to do.
For example: If my string was this:
[Hello][Bye]CakeBuster[Dead]
How do i only convert the string CakeBuster to hex
So anything in between "[" and "]" will not be converted into hex.
Hex Function i am currently using:
Here is an example of what im trying to do.
For example: If my string was this:
[Hello][Bye]CakeBuster[Dead]
How do i only convert the string CakeBuster to hex
So anything in between "[" and "]" will not be converted into hex.
Hex Function i am currently using:
Code:
Dim hex As String = Nothing
For i As Integer = 0 To text.Length - 1
hex &= Asc(text.Substring(i, 1)).ToString("x").ToUpper
Next
Return hex
End Function
Originally Posted by ppl2pass
I need a little fix for the hex function right now.
Here is an example of what im trying to do.
For example: If my string was this:
[Hello][Bye]CakeBuster[Dead]
How do i only convert the string CakeBuster to hex
So anything in between "[" and "]" will not be converted into hex.
Hex Function i am currently using:
Here is an example of what im trying to do.
For example: If my string was this:
[Hello][Bye]CakeBuster[Dead]
How do i only convert the string CakeBuster to hex
So anything in between "[" and "]" will not be converted into hex.
Hex Function i am currently using:
Code:
Dim hex As String = Nothing
For i As Integer = 0 To text.Length - 1
hex &= Asc(text.Substring(i, 1)).ToString("x").ToUpper
Next
Return hex
End Function
[php]Dim Source As String = "[Hello][Bye]CakeBuster[Dead]"
Dim _1 As Integer = Source.LastIndexOf("[")
Dim Ex1 As String = Mid(Source, 1, _1)
Dim _2 As Integer = Ex1.LastIndexOf("]") + 2
Dim FinalExtraction As String = Mid(Ex1, _2)
Dim hex As String = Nothing
For i As Integer = 0 To FinalExtraction.Length - 1
hex &= Asc(FinalExtraction.Substring(i, 1)).ToString("x").ToUpper
Next
MsgBox(hex)[/php]
Hope this helps
Similar Threads
- 5Last post
- 4Last post
- 18Last post
