comma separators after hex conversion?

jklein

New Member
Joined
May 12, 2002
Messages
7
Hi all,
I'm using a VB hex conversion module I found on Mr Excel that's working well, but I can't figure out how to put separators in between each two hex characters. I need to paste the results into a txt file that requires the comma separators. I did find one webpage that puts % between every two characters, which then allows me to use the find/replace function, but if there's a way to put a % in there I would think a comma is possible, too.

The VB script I'm using is:
Function WEPConv(str As String) As String
Dim i As Long
For i = 1 To Len(str)
WEPConv = WEPConv & Hex(Asc(Mid(str, i, 1)))
Next i
End Function

The html-based hex conversion web page I'm referencing is:
http://www.mikezilla.com/exp0012.html

Thanks for any suggestions,
Jeff K.
 

Andrew Poulsom

MrExcel MVP
Joined
Jul 21, 2002
Messages
73,092
Like this?

Code:
Function WEPConv(str As String) As String
    Dim i As Long
    For i = 1 To Len(str)
        If i = 1 Then
            WEPConv = Hex(Asc(Mid(str, i, 1)))
        Else
            WEPConv = WEPConv & "," & Hex(Asc(Mid(str, i, 1)))
        End If
    Next i
End Function
 

Forum statistics

Threads
1,078,469
Messages
5,340,508
Members
399,381
Latest member
impurnasekar

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top