Funzione Mid

Restituisce la porzione specificata di un'espressione in formato stringa (funzione Mid), o sostituisce la porzione specificata di un'espressione in formato stringa con un'altra stringa (subroutine Mid).

Sintassi:


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)

Valore restituito:

String (solo con la funzione)

Parametri:

string: qualsiasi espressione in formato stringa che si desidera estrarre (funzione Mid). Qualsiasi nome di variabile contenente il testo che si desidera modificare ( subroutine Mid).

Start: espressione numerica che indica la posizione all'interno della stringa del carattere da cui inizia la porzione da sostituire o restituire. Il valore minimo ammesso è 1, il massimo è 2.147.483.648.

Lunghezza: espressione numerica che restituisce il numero di caratteri da sostituire o restituire. Il valore massimo consentito è 2.147.483.648.

Se il parametro Lunghezza viene omesso nella funzione Mid, vengono restituiti tutti i caratteri dell'espressione, dall'inizio alla fine della stringa.

Se il parametro Length della subroutine Mid è minore della lunghezza del testo che si desidera sostituire, il testo viene ridotto alla lunghezza specificata.

Text: la stringa da sostituire all'interno dell'espressione in formato stringa (subroutine Mid).

Codici di errore:

5 Richiamo di procedura non valido

Esempio:


Sub ExampleMid_Function_and_Statement
  text = "This is the original Text"
func1:
  MsgBox Mid(text, 13, 8)   ' restituisce la parola "original"
  MsgBox text               ' il testo non è modificato
stmt1:
  Mid(text, 13, 8, "new")
  MsgBox text               ' restituisce "Questo è il nuovo testo"
func2:
  MsgBox Mid(start:=10, string:="The quick brown fox ..") ' mostra " brown fox .."
stmt2:
  Mid text, 9, 12, "a new Phrase"
  MsgBox text               ' restituisce "Questa è una nuova frase"
End Sub

Sostienici!