[RESOLVED] Remove Delimiter Question

[wiccaan]

Hey guys got a question on removing a delimiter on a random sized string. The string is a persons name, their respective hex numbers, with the number 0 seperating each hex value. Such as:

5706906306306106106E

Would equal Wiccaan, with 0's seperating each hex combo.

I need to remove the 0, or change it with a " " (space) instead of having the 0's there. I ask this cause I have a file of names in hex with this delemiter and I need to convert it from the hex to regular letters.

I can make the ASCII function to convert the hex to ascii, I just cant figure out how to start a function to remove the 0's because hex uses 0's...

Thanks for the help in advance.

[jcis]

Maybe with Replace?

MyString = Replace (MyString, "0", " ")

Or you could use directly Split(MyString, "0"), that will return an array with Hex values (in string format).

[dsheller]

jcis: That method would not work due to the fact that some hex values can start with a zero. For example:
01 0A 0B, and if you string those together with a delimiter of zero you get
0100A00B

wiccaan: Can you just change the delimiter to something easy to get out such as ";"?

[wiccaan]

Maybe with Replace?

MyString = Replace (MyString, "0", " ")

Or you could use directly Split(MyString, "0"), that will return an array with Hex values (in string format).

For some reason I went brain dead on that and keep figuring that the letters had 0's in them as well. Sorry about my mistake. Thanks.

jcis: That method would not work due to the fact that some hex values can start with a zero. For example:
01 0A 0B, and if you string those together with a delimiter of zero you get
0100A00B

wiccaan: Can you just change the delimiter to something easy to get out such as ";"?

Cant, its not my file, Im just converting it to the actuall names. Like the file is updated probably weekly almost from someone else. So Im just going with what he is using himself.

[jcis]

jcis: That method would not work due to the fact that some hex values can start with a zero. For example:
01 0A 0B, and if you string those together with a delimiter of zero you get
0100A00B

wiccaan: Can you just change the delimiter to something easy to get out such as ";"?

Ok, but no program will be able to guess what kind of "0" it is (if delimiter or part of a Hex), so, What about using another character as delimiter?

[dsheller]

Private Sub Form_Load()
    Dim hx As String
    hx = "5706906306306106106E"
    
    Do Until Len(hx) = 0
        MsgBox ReadTwo(hx)
        hx = ChopTwo(hx)
        If Len(hx) >= 1 Then
            hx = ChopDelim(hx)
        End If
    Loop
    
End Sub
 
Private Function ReadTwo(strString As String) As String
    ReadTwo = Left(strString, 2)
End Function
 
Private Function ChopTwo(strString As String) As String
    ChopTwo = Right(strString, Len(strString) - 2)
End Function
 
Private Function ChopDelim(strString As String) As String
    ChopDelim = Right(strString, Len(strString) - 1)
End Function

Alright, well as long as each hex char is always two digits that should work.

[vbasicgirl]

because the hex value will be no more than 2 characters then we can do a for loop with a step of 3 then convert within the loop

Dim str1 As String, i As Long, str2 As String
 
str1 = "5706906306306106106E"
 
For i = 1 To Len(str1) Step 3
 str2 = str2 & Chr(CLng("&H" & Mid$(str1, i, 2)))
Next i
 
MsgBox str2

casey.

[dsheller]

I like vbasicgirls way of doing it better than mine, try that one.