Ένα 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 . "
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα