Περιεχόμενα

# Συνάρτηση Mid

Επιστρέφει το καθορισμένο τμήμα μιας έκφρασης συμβολοσειράς (Συνάρτηση Mid) ή αντικαθιστά το τμήμα μιας έκφρασης συμβολοσειράς με μια άλλη συμβολοσειρά (Υπορουτίνα Mid).

### Σύνταξη:

    Mid(string As String, Start As Long [, Length As Long]) As String
    Mid([ByRef] string As String, Start As Long, [Length As Long], Text As String)

### Τύπος επιστροφής:

String (only by Function)

### Παράμετροι:

string: Οποιαδήποτε έκφραση συμβολοσειράς που θέλετε να εξαγάγετε (Συνάρτηση Mid). Οποιοδήποτε όνομα μεταβλητής κειμένου που θέλετε να τροποποιήσετε (Υπορουτίνα Mid).

Start: (Έναρξη) Αριθμητική έκφραση που δείχνει τη θέση του χαρακτήρα μέσα στη συμβολοσειρά, όπου αρχίζει το τμήμα της συμβολοσειράς που θέλετε να αντικαταστήσετε ή να επιστραφεί. Η ελάχιστη επιτρεπόμενη τιμή είναι 1. Η μέγιστη επιτρεπόμενη τιμή είναι 2.147.483.648.

Length: (Μήκος) Η αριθμητική έκφραση που επιστρέφει τον αριθμό των χαρακτήρων που θέλετε να αντικαταστήσετε ή να επιστραφεί. Η μέγιστη επιτρεπόμενη τιμή είναι 2.147.483.648.

Αν παραληφθεί η παράμετρος Length στη Mid function, επιστρέφονται όλοι οι χαρακτήρες στην παράσταση συμβολοσειράς από τη θέση έναρξης ως το τέλος της συμβολοσειράς.

Εάν η παράμετρος Μήκος στην υπορουτίνα Mid είναι μικρότερη από το μήκος του κειμένου που θέλετε να αντικαταστήσετε, το κείμενο μειώνεται στο καθορισμένο μήκος.

Text: Η συμβολοσειρά που θα αντικαταστήσει την έκφραση συμβολοσειράς (Υπορουτίνα Mid).

### Κωδικοί σφάλματος:

5 Άκυρη κλήση διαδικασίας

### Παράδειγμα:

    Sub ExampleMid_Function_and_Statement
      text = "This is the original Text"
    func1:
      Η MsgBox Mid(text, 13, 8) ' επιστρέφει τη λέξη "original"
      MsgBox text               ' το κείμενο δεν τροποποιήθηκε
    stmt1:
      Mid(text, 13, 8, "new")
      MsgBox text               '  επιστρέφει "This is the new Text"
    func2:
      MsgBox Mid(start:=10, string:="The quick brown fox ..") ' εμφανίζει "brown fox .."
    stmt2:
      Mid text, 9, 12, "a new Phrase"
      MsgBox text               ' επιστρέφει "This is a new Phrase"
    End Sub

Σχετικά θέματα

Συναρτήσεις συμβολοσειράς

Παρακαλούμε, υποστηρίξτε μας!