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

[Venkman]

da titel sagt eh alles oder???? - wie macht man das in Visual Basic???

[Jaguar]

i = "0x" & stringvar

[Venkman]

Wie kann i damit aber dann rechenen, denn nach deiner Methode bleibt 3F trotzdem noch a string, oder?

[Jaguar]

nicht wenn du i als zahl definierst. dann führt vb eine typkonvertierung durch.

[Venkman]

*****nur m,al kurz zur erklärung - der thread und de postings fürht a freund von mir durch - hab ihm gsagt er soll nur mienen account verwenden-kan bock zum anmelden ghabt - würds ihm ja selbst erklären aba hab kan plan in vc - wenn ma sich länger mit etwas nicht befasst und sich nie richtig reingesteigert hat.... - werden das ausprobieren**************

[artemisia]

noch einmal sorry ... falscher thread

[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

[Jaguar]

ups ... die 0x Darstellung gilt ja nur für direkte Zahlenangaben.
Zum umrechnen wars nicht 0x sondern &H mit Hilfe der VAl Funktion. *sorry*


Dim i As Long
Dim s As String

s = "3F"

i = Val("&H" & s)

MsgBox i



*immer noch leichter als selber umwandeln

[Sonic]

Naja, so gehts auch.

Aber selber umwandeln macht mehr Spass!

lg

[Jaguar]

warum einfach wenns umständlich auch geht