[VB6] Prendere delle sottostringhe (era: aiuto con visual basic...)

[gabronzio]

ragazzi ho un problema con visual basic 6...devo inserire una stringa in esadecimale (esempio = f4 5e 33 45 8a) la inserisco in 5 textbox, una per ogni coppia di numeri...cosi è molto piu semplice prendere i dati e farci i calcoli ...come faccio invece a metterli tutti in un unico textbox e prendere i dati uno a uno in quel text box??????
non so se mi sono spiegato bene..
grazie a tuttti in anticipo

[oregon]

Usa la funzione Mid$ ...

[LMondi]

Ciao gabronzio,
con la funzione Hex ottieni il valore esadecimale, poi con la funzione Mid separi i valori a coppie o singolarmente, come segue:

'La funzione Hex viene utilizzata per restituire
'il valore esadecimale di un numero:
Private Sub Command1_Click()
    Dim MyHex As String
    Dim sSequenceN As String
    Dim sFSeq As String, sSeSeq As String, sThSeq As String, sFoSeq As String
    Dim sFFSeq As String
    
    MyHex = Hex(1234567890)    'Restituisce 499602D2
    Text1(0).Text = MyHex
    sSequenceN = MyHex
    
    ' Separa a coppia i valori esadecimali:
    sFSeq = Mid$(sSequenceN, 1, 2): Text1(1).Text = sFSeq
    sSeSeq = Mid$(sSequenceN, 3, 2): Text1(2).Text = sSeSeq
    sThSeq = Mid$(sSequenceN, 5, 2): Text1(3).Text = sThSeq
    sFoSeq = Mid$(sSequenceN, 7, 2): Text1(4).Text = sFoSeq
    ' Separa ogni singolo valore:
    sFFSeq = Mid$(sSequenceN, 1, 1): Text1(5).Text = sFFSeq
    ' ....
    ' ....
End Sub

[LeleFT]

E cerca di utilizzare dei titoli migliori, come espressamente richiesto dal Regolamento.


Correggo io.


Ciao.

[gabronzio]

grazie a tutti ... scusate per il titolo,,