Λειτουργία Mid σε VB.NET

Visual Basic είναι μια γλώσσα προγραμματισμού που τόσο αρχή και έμπειρους προγραμματιστές μπορούν να εκτιμήσουν . Ολοκληρωμένο περιβάλλον προγραμματισμού της Microsoft είναι ισχυρή , και η δωρεάν έκδοση Express είναι απολύτως ικανά να μεταφέρουν εφαρμογές επαγγελματικού επιπέδου . Ένα από τα χαρακτηριστικά του κάθε γλώσσα προγραμματισμού είναι string χειρισμό και VB.NET δεν αποτελεί εξαίρεση , με τη λειτουργία " Mid " είναι ένας από τους ευκολότερους συναρτήσεις συμβολοσειράς να χρησιμοποιήσετε . Σπάγγοι

Ένα string είναι μια συνεχόμενη ομάδα των χαρακτήρων που μπορεί να αποτελείται από γράμματα, οι αριθμοί και ειδικούς χαρακτήρες . VB.NET δεν θεωρεί αριθμητικούς χαρακτήρες σε μια σειρά , όπως αριθμούς , αλλά ως αλφαριθμητικούς χαρακτήρες . Αν θέλετε να μετατρέψετε αλφαριθμητικών χαρακτήρων σε αριθμούς , η συνάρτηση Mid μπορεί να βοηθήσει , εφ 'όσον ξέρετε πού είναι, ή μπορεί να τους βρει .
Εικόνων Συνάρτηση Mid
Η

η σύνταξη της συνάρτησης Mid είναι " NewString = Mid ( OldString , S , L ) , " όπου " S" είναι το σημείο εκκίνησης στη σειρά , σε σχέση με ένα , και το " L " είναι ο αριθμός των χαρακτήρων που θέλετε να εξαγάγετε από το " OldString . " Το αποτέλεσμα τοποθετείται μέσα στο " NewString " μεταβλητή. Το "L" παράμετρος αυτή είναι προαιρετική , και αν δεν το διευκρινίζει , VB.NET παίρνει όλους τους χαρακτήρες από τη θέση " S" στο τέλος του " OldString . "

Η χρησιμοποιώντας Mid
Η

Εάν γνωρίζετε την ακριβή θέση του ομίλου του χαρακτήρες που ψάχνετε , η ενδιάμεση λειτουργία είναι εύκολο στη χρήση . Για παράδειγμα , εάν έχετε μια διεύθυνση κορδόνι 30 χαρακτήρων σε ένα record.and δεδομένων γνωρίζουν ότι τα πρώτα πέντε χαρακτήρες περιέχει τον αριθμό σπιτιού , δηλώσεις σας VB.NET θα μοιάζει με αυτό :

Δημ. HouseNumber ως String

HouseNumber = Mid ( AddressString , 1 , 5 )

Αυτό θα τοποθετήσει τα πρώτα πέντε χαρακτήρες " AddressString " σε " HouseNumber . " Εάν γνωρίζετε τα τελευταία πέντε χαρακτήρες είναι ο Τ.Κ. , θα μπορούσατε να χρησιμοποιήσετε αυτές τις δηλώσεις για να εξαγάγετε :

Δημ. ZipCodeString ως String

ZipCodeString = Mid ( AddressString , 26 )

δεν χρειάζεται την επιλογή μήκους , από το Mid θα ξεκινήσει στις 26 το χαρακτήρα και πηγαίνετε στο τέλος του string .
εικόνων Εξαγωγή ενός αριθμού με Mid
Η

Εξαγωγή ένας αριθμός είναι λίγο πιο περίπλοκη , δεδομένου ότι θα πρέπει να ξέρετε ακριβώς όπου ο αριθμός βρίσκεται στη συμβολοσειρά . Για τη λειτουργία αυτή που πραγματικά θα πρέπει να χρησιμοποιήσετε τη λειτουργία " IsNumeric » και βρόχο μέσω της συμβολοσειράς πηγή . Εάν γνωρίζετε ότι έχετε μια σειρά κάπου σε μια σειρά , και θέλετε να το μετατρέψετε σε ένα ακέραιο , θα πρέπει να αναζητήσετε το string πηγή , ελέγξτε κάθε χαρακτήρα για την αριθμητική τιμή και να αποθηκεύουν τους αριθμούς σε ένα άλλο string . Ο κώδικας θα δούμε κάτι σαν αυτό :

Δημ. SourceString ως String = " abcde123defgh "

Δημ. NumberString , TestString ως String

Δημ. TestString ως String

Dim NumberInteger ως Ακέραιος

Δημ. COUNTER1 ως Integer = 1

Δημ. Length1 ως Integer = Len ( SourceString )

Do While Length1 > COUNTER1

TestString = Mid ( SourceString , COUNTER1 , 1 )

Εάν IsNumeric ( TestString ) Στη συνέχεια

NumberString = NumberString & TestString

Endif

COUNTER1 + = 1

Loop

NumberInteger = Integer.Parse ( NumberString )

ο βρόχος εξετάζει κάθε χαρακτήρα του " SourceString , " και εάν είναι ένας αριθμός , ο κωδικός συνενώνει να " NumberString . " Όταν ο βρόχος έρχεται στο τέλος του " SourceString " τερματίζει looping , και η επόμενη εντολή μετατρέπει " NumberString " σε ακέραιο και το τοποθετεί στην " NumberInteger . "
Η
εικόνων