Una stringa è un gruppo contiguo di caratteri che può essere costituito da caratteri alfabetici , numerici e speciali . VB.NET non considera i caratteri numerici in una stringa di numeri , ma come caratteri alfanumerici . Se si desidera convertire i caratteri alfanumerici per i numeri , la funzione Mid può aiutare , a patto che si sa dove sono, o riesce a trovarli.
Funzione Mid
la sintassi della funzione Mid è " NewString = Mid ( OldString , S , L) , " dove " S " è il punto di partenza nella stringa , relativa a uno, e "L" è il numero di caratteri che si desidera estrarre da " OldString ". Il risultato viene posto nella variabile " NewString " . Il parametro "L" è opzionale , e se non si specifica che , VB.NET ottiene tutti i caratteri dalla posizione " S " alla fine di " OldString . "
Sulla base di MID
Se si conosce l' esatta posizione del gruppo di caratteri che stai cercando , la funzione Mid è facile da usare. Per esempio, se si dispone di un indirizzo di stringa di 30 caratteri in un record.and dati sapere che i primi cinque caratteri contengono il numero di casa , le sue dichiarazioni VB.NET sarebbe simile a questa :
Dim numero civico come String < br
housenumber > = Mid ( AddressString , 1 , 5 ) per
Questo porrebbe i primi cinque caratteri di " AddressString " in " numero civico ". Se conoscete gli ultimi cinque caratteri sono il CAP, è possibile utilizzare queste istruzioni per estrarlo :
Dim ZipCodeString come String
ZipCodeString = Mid ( AddressString , 26 ) per
non è necessario l'opzione di lunghezza , da metà inizieranno a carattere 26 e andare alla fine della stringa .
estrazione di un numero con Mid
Estrazione un numero è un po 'più complesso , poiché è necessario sapere esattamente dove il numero si trova nella stringa . Per questa operazione è effettivamente necessario utilizzare la funzione " IsNumeric " e scorrere la stringa di origine . Se sai di avere un numero da qualche parte in una stringa , e si desidera convertire in un numero intero , si deve cercare la stringa di origine , verificare ogni carattere per il valore numerico e memorizzare i numeri in un'altra stringa . Il codice dovrebbe essere simile a questa :
Dim SourceString as String = " abcde123defgh "
Dim NumberString , testString as String
Dim TestString as String
dim NumberInteger as Integer
dim Counter1 as Integer = 1
dim Lunghezza1 As Integer = Len ( SourceString ) per
Do While Lunghezza1 > Counter1
TestString = Mid ( SourceString , Counter1 , 1 ) per
Se IsNumeric ( TestString ) Poi
NumberString = NumberString & TestString
Endif
Counter1 + = 1
loop
NumberInteger = Integer.Parse ( NumberString ) per
Il ciclo esamina ogni personaggio di " sourceString ", e se è un numero, il codice concatena a " NumberString ". Quando il ciclo arriva alla fine di " SourceString " termina looping , e l'istruzione successiva converte " NumberString " in un intero e lo mette in " NumberInteger . "
Programmazione © www.354353.com