|
ok eso me keda claro, ahora surge otra duda
como uso el
select case
nesecito alguien que sepa programar en vb y delphi para que me pueda ayuda
es que nesecito UBound
por ejemplo esta funcion
Function StrIPToHexIP(IpStr As String) As String
Dim SplitIp() As String
Dim ConvertingLoop As Integer
SplitIp = Split(IpStr, ".")
For ConvertingLoop = 0 To UBound(SplitIp)
StrIPToHexIP = StrIPToHexIP + Chr(SplitIp(ConvertingLoop))
Next ConvertingLoop
End Function
el CStr
Function HexIPToStrIp(IpStr As String) As String
Dim ConvertingLoop As Integer
For ConvertingLoop = 1 To 4
HexIPToStrIp = HexIPToStrIp + CStr(Asc(Mid(IpStr, ConvertingLoop, 1))) + "."
Next ConvertingLoop
HexIPToStrIp = Left(HexIPToStrIp, Len(HexIPToStrIp) - 1)
End Function
|