[VB6]: Estrarre numeri da stringa

[goku370]

Una domanda semplice a cui non riesco a dare una risposta:
se io ho una stringa come, ad esempio, "value='12345' abc" come faccio a ricavare solo la parte numerica ("12345")
Il numero è sempre compreso tra i due apici ma il numero di cifre del numero può variare.....(scusate il gioco di parole)

[oregon]

Trova con la funzione Instr la posizione del primo apice e con le funzioni Val e Mid$ valuti il numero.

[goku370]

Un attimo. Allora io trovo con inStr la posizione del primo apice. Fin quì tutto ok. Come uso le altre due funzioni, in particolare a cosa serve la funzione Val?

[Boolean]

Dim t As String
Dim p1 As Integer, p2 As Integer
Dim Valore As Long

t = "value='12345' abc"

p1 = InStr(1, t, "'") + 1           'trovo la posizione del primo apice
p2 = InStr(p1, t, "'")              'trovo la posizione del secondo apice
Valore = Val(Mid(t, p1, p2 - p1))   'estraggo il valore tra i due apici
                                    'convertendolo in numero

Boolean

[oregon]

Originariamente inviato da Boolean

Dim t As String
Dim p1 As Integer, p2 As Integer
Dim Valore As Long

t = "value='12345' abc"

p1 = InStr(1, t, "'") + 1           'trovo la posizione del primo apice
p2 = InStr(p1, t, "'")              'trovo la posizione del secondo apice
Valore = Val(Mid(t, p1, p2 - p1))   'estraggo il valore tra i due apici
                                    'convertendolo in numero

Boolean

O piu' semplicemente

    Dim t As String
    Dim p As Long
    Dim Valore As Long

    t = "value='12345' abc"

    p = InStr(1, t, "'") + 1
    Valore = Val(Mid(t, p))

Comunque, Boolean, se non ti avessi dato io la strada ...

[Boolean]

Originariamente inviato da oregon
Comunque, Boolean, se non ti avessi dato io la strada ...

:maLOL:

effettivamente... e figurati che anche così ci ho dovuto lavorare!!!

in effetti il tuo metodo è piuttosto "sbrigativo"
io andavo più per il sottile estraendo solo il numero

Ciao!

Boolean

[Jupy64]

Ciao, altra alternativa, usare la funzione Split.

Dim t As String
Dim tmp() As String
Dim numero As Long

t = "value='12345' abc"
tmp = Split(t, "'")
numero = tmp(1)

Anche se in informatica niente deve essere dato per scontato...in questi esempi, è dato per scontato che nella stringa, gli unici apici siano quelli che delimitano il numero.

[goku370]

Grazie a tutti. Molto esaustivi, ora ho solo l'imbarazzo della scelta...