Office

Συνάρτηση Mid

Επιστρέφει μια Μεταβλητή (Ακέραιος) που περιέχει έναν καθορισμένο αριθμό χαρακτήρων από μια συμβολοσειρά.

Σύνταξη

Mid ( συμβολοσειρά, Έναρξη [, μήκος ] )

Η σύνταξη της συνάρτησης Mid περιλαμβάνει τα παρακάτω ορίσματα:

Όρισμα

Περιγραφή

συμβολοσειρά

Υποχρεωτικό. παράσταση συμβολοσειράς από τους χαρακτήρες που επιστρέφονται. Εάν η συμβολοσειρά περιέχει την τιμή null, επιστρέφεται η τιμή null .

έναρξη

Υποχρεωτικό. Καιρό. Η θέση του χαρακτήρα στη συμβολοσειρά στην οποία αρχίζει το τμήμα που θα ληφθεί. Εάν η Έναρξη είναι μεγαλύτερη από τον αριθμό των χαρακτήρων στη συμβολοσειρά, η συνάρτηση MID επιστρέφει μια συμβολοσειρά μηδενικού μήκους ("").

length

Προαιρετικό. Παραλλαγή (Long). Αριθμός των χαρακτήρων που θα επιστραφούν. Εάν παραλειφθεί ή εάν υπάρχουν λιγότεροι χαρακτήρες στο κείμενο (συμπεριλαμβανομένου του χαρακτήρα κατά την Έναρξη), επιστρέφονται όλοι οι χαρακτήρες από τη θέση έναρξης μέχρι το τέρμα της συμβολοσειράς.


Παρατηρήσεις

Για να καθορίσετε τον αριθμό των χαρακτήρων στη συμβολοσειρά, χρησιμοποιήστε τη συνάρτηση Len .

Σημείωση: Χρησιμοποιήστε τη συνάρτηση MIDB με δεδομένα byte που περιέχονται σε μια συμβολοσειρά, όπως σε γλώσσες συνόλου χαρακτήρων δύο byte. Αντί να καθορίσετε τον αριθμό των χαρακτήρων, τα ορίσματα καθορίζουν τους αριθμούς των byte. Για δείγμα κώδικα που χρησιμοποιεί το MIDB, ανατρέξτε στο δεύτερο παράδειγμα στο θέμα παράδειγμα.

Παραδείγματα ερωτημάτων

Παράσταση

Αποτελέσματα

Επιλέξτε αναγνωριστικό προϊόντος, Mid (αναγνωριστικό προϊόντος, 5) ως Έκφρ1 από το ProductSales.

Επιστρέφει το "Αναγνωριστικό προϊόντος" και το τμήμα του αναγνωριστικού προϊόντος ξεκινώντας από τη θέση του χαρακτήρα 5 και εμφανίζει τα αποτελέσματα στη στήλη Έκφρ1.

Επιλέξτε αναγνωριστικό προϊόντος, Mid (αναγνωριστικό προϊόντος, 5, 4) ως testMid από το ProductSales.

Επιστρέφει το "Αναγνωριστικό προϊόντος" και το τμήμα του αναγνωριστικού προϊόντος ξεκινώντας από τη θέση του χαρακτήρα 5, που περιέχει 4 χαρακτήρες και εμφανίζει τα αποτελέσματα στη στήλη testMid.

Παραδείγματα VBA

Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα της Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε αναφορά προγραμματιστή στην αναπτυσσόμενη λίστα δίπλα στην επιλογή Αναζήτηση και εισαγάγετε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.

Το πρώτο παράδειγμα χρησιμοποιεί τη συνάρτηση Mid για να επιστρέψει έναν καθορισμένο αριθμό χαρακτήρων από μια συμβολοσειρά.

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" ' Create text string.
FirstWord = Mid(MyString, 1, 3) ' Returns "Mid".
LastWord = Mid(MyString, 14, 4) ' Returns "Demo".
MidWords = Mid(MyString, 5) ' Returns "Function Demo".

Το δεύτερο παράδειγμα χρησιμοποιεί το MIDB και μια συνάρτηση οριζόμενη από το χρήστη (MidMbcs) για να επιστρέψει επίσης χαρακτήρες από τη συμβολοσειρά. Η διαφορά εδώ είναι ότι η συμβολοσειρά εισόδου είναι ANSI και το μήκος είναι σε byte.

Function MidMbcs(ByVal str as String, start, length)
MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), _
start, length), vbUnicode)
End Function
Dim MyString
MyString = "AbCdEfG"
' Where "A", "C", "E", and "G" are DBCS and "b", "d",
' and "f" are SBCS.
MyNewString = Mid(MyString, 3, 4)
' Returns ""CdEf"
MyNewString = MidB(MyString, 3, 4)
' Returns ""bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Returns "bCd"

Σημείωση:  Αυτή η σελίδα έχει μεταφραστεί μέσω αυτοματοποιημένης διαδικασίας και ενδεχομένως να περιέχει γραμματικά λάθη και ανακρίβειες. Ο σκοπός μας είναι αυτό το περιεχόμενο να σας φανεί χρήσιμο. Μπορείτε να μας πείτε εάν σας βοήθησαν αυτές οι πληροφορίες; Εδώ θα βρείτε το άρθρο στα Αγγλικά για να το συμβουλεύεστε.

Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!

Σας ευχαριστούμε για τα σχόλιά σας! Φαίνεται ότι μπορεί να είναι χρήσιμο να συνδεθείτε με έναν από τους συνεργάτες υποστήριξης του Office.

×