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 . "