Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
reťazec je súvislá skupina znakov , ktoré sa môže skladať z písmen , numerických a špeciálnych znakov . VB.NET nepovažuje číselné znaky v reťazci ako čísla , ale ako alfanumerických znakov . Ak chcete previesť alfanumerických znakov na čísla , funkcia Mid pomôže , ak viete , kde sú , alebo ich je možné nájsť .
Mid Funkcia
Syntax funkcie Mid je " NewString = Mid ( OldString , S , L ) , " kde " S " je východiskovým bodom v reťazci , vo vzťahu k jednému , a " L " je počet znakov , ktoré chcete extrahovať z " OldString . " Výsledok je umiestnený do " NewString " premenné . Parameter " P " je voliteľná , a ak neuvediete to , VB.NET získa všetky znaky z polohy " S " až do konca " OldString . "
použitie Mid
Ak poznáte presnú polohu skupiny postáv , ktoré hľadáte , stredná funkcia je ľahko ovládateľný . Napríklad , ak máte 30 - znakový reťazec adresy v dátovom record.and vieme , že prvých päť znakov obsahuje číslo domu , vaše príkazy VB.NET by vyzerať takto :
Dim číslo domu ako String
číslo domu = Mid ( AddressString , 1 , 5 )
To by miesto prvých päť znakov " AddressString " v " číslo domu " . Ak viete , že v posledných piatich znaky PSČ , môžete použiť tieto príkazy ho rozbaľte :
Dim ZipCodeString ako String
ZipCodeString = Mid ( AddressString , 26 )
Nemusíte voľbu dĺžky , od polovice roka začne na charaktere 26 a ísť na koniec reťazca .
Extrahovanie číslo S Mid
Extrahovanie číslo je trochu zložitejšie , pretože musíte presne vedieť , kde sa číslo nachádza v reťazci . Pre túto operáciu budete skutočne potrebovať použiť funkciu " IsNumeric " a slučku zdrojového reťazca . Ak viete , že máte niekoľko niekde v reťazci , a chcete ho previesť na celé číslo , budete musieť hľadať zdrojový reťazec , testovať každý znak pre číselné hodnoty a uloženie čísla v inom reťazci . Kód bude vyzerať niečo ako toto :
Dim SourceString ako String = " abcde123defgh "
Dim NumberString , TestString ako String
Dim TestString ako String
Dim NumberInteger ako Integer
Dim Counter1 ako Integer = 1
Dim Dĺžka 1 As Integer = Ľan ( SourceString )
Kým Dĺžka 1 > Counter1
TestString = Mid ( SourceString , Counter1 , 1 )
Ak IsNumeric ( TestString ) Potom
NumberString = NumberString & TestString
Endif
Counter1 + = 1
Loop
NumberInteger = Integer.Parse ( NumberString )
slučka skúma každý znak " SourceString , " a ak je to číslo , kód zřetězuje to " NumberString . " Keď slučka príde do konca roka " SourceString " ukončí slučky , a ďalšie vyhlásenie prevádza " NumberString " na celé číslo a umiestni ho v " NumberInteger . "