string 3F (is eigentl. wurscht) -> hexadezimal 3F umwandeln - VisualBasic

[Sonic]

Original geschrieben von Jaguar
i = "0x" & stringvar

Bist du sicher!? Habs probiert und bei mir gehts nicht! (VB6 sp5)
"Fehler Typen unverträglich!" Und mit den Konvertirungsfunktionen (val, cint, clng,...) gehts leider auch nicht.

@Venkman:

Dir wird nichts übrig bleiben als selbst umzurechenn.
Hab dir eine Funktion geschrieben:

Private Function lHexToLong(ByVal sValue As String) As Long
  Const sHexVal As String = "0123456789ABCDEF"
  Dim iPos As Integer
  Dim iStellenwert As Integer
  
  sValue = UCase(Trim(sValue))
  If Left(sValue, 2) = "0X" Then sValue = Trim(Right(sValue, Len(sValue) - 2))
  If Right(sValue, 1) = "H" Then sValue = Trim(Left(sValue, Len(sValue) - 1))
  
  For iPos = Len(sValue) To 1 Step -1
    iStellenwert = InStr(1, sHexVal, Mid(sValue, iPos, 1))
    If iStellenwert = 0 Then
      MsgBox "Fehler beim Umrechenen!" & vbCrLf & "Illegales Zeichen!", vbOKOnly + vbCritical, "Fehler"
      Exit Function
    End If
    iStellenwert = iStellenwert - 1
    HexToLong = HexToLong + iStellenwert * 16 ^ (Len(sValue) - iPos)
  Next iPos
End Function

lg