Συνάρτηση 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)

Return type:

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

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