Replace number with ascii character?

[j420exe]

I have a string: abc!246!def
I need to replace the 246 with the ö character which is 246 on the ASCII table.
Is there is a way to search the string for the ! and then replace whatever number is in between then ! with what ascii character it is?

Thanks!

 

[mwolf00]

myStr = "abc" + Chr(246) + "def"


myStr = "abc!246!def"
myStr = replace(myStr,"!246!,Chr(246))



-----------------------------------------------------------------
"The difference between 'involvement' and 'commitment' is like an eggs-and-ham breakfast: the chicken was 'involved' - the pig was 'committed'."
- unknown

mikewolf@tst-us.com

 

[j420exe]

What if I don't know what the number is going to be between the !?

Thanks for the help!

 

[mwolf00]

myStr = "abc!246!def"

pos1 = cInt(inStr(myStr,"!&quot)
pos2 = cInt(inStr(pos1, myStr, "!&quot)
numVal = cInt(mid(inStr, pos1+1, pos2-pos1))

myStr = replace(myStr, "!" + cStr(numVal) + "!", Chr(numVal))
-----------------------------------------------------------------
"The difference between 'involvement' and 'commitment' is like an eggs-and-ham breakfast: the chicken was 'involved' - the pig was 'committed'."
- unknown

mikewolf@tst-us.com

 

[FRoeCassNet]

Try something along the lines of...

Dim sBuf As String
Dim nStart As Integer
Dim nStop As Integer

sBuf = "abc!246!def"
nStart = InStr(sBuf, "!&quot
If nStart > 0 Then
nStop = InStr(nStart + 1, sBuf, "!&quot
If nStop > 0 Then
sBuf = Left(sBuf, nStart - 1) & _
Chr(CLng(Mid(sBuf, nStart + 1, (nStop - nStart) - 1))) & _
Mid(sBuf, nStop + 1)
End If
End If

 

[j420exe]

Thanks!!! That worked!!!

 

[CCLINT]

Dim Results As String
Dim ary() As String
Dim i As Integer

ary = Split(TheString, "!&quot
For i = 0 To UBound(ary)
If i <> 1 Then Results = Results & ary(i)
Next i

Or,

Dim Pos As Integer
Pos = InStr(TheString, &quot;!&quot
If Pos Then TheString = Mid$(TheString, 1, Pos - 1) & Mid$(TheString, InStrRev(TheString, &quot;!&quot + 1)
[/b][/i][/u]_{*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!}

 

[strongm]

Just another fun alternative:
[tt]
Public Function HackString(strSource As String) As String
Dim strTemp() As String

HackString = strSource
strTemp = Split(strSource, &quot;!&quot
If UBound(strTemp) > 1 Then
strTemp(1) = Chr(CLng(strTemp(1)))
HackString = Join(strTemp, &quot;&quot
End If

End Function