Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
Questo articolo contiene esempi di come modificare le stringhe di testo usando le funzioni Left, Right, Mid e Len in Microsoft Visual Basic, Applications Edition in Microsoft Excel.
Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. I tecnici di supporto tecnico Microsoft sono autorizzati a fornire spiegazioni in merito alla funzionalità di una particolare routine, ma in nessuno caso a modificare questi esempi per fornire funzionalità aggiuntive o a creare routine atte a soddisfare specifiche esigenze.
Per la procedura seguente viene illustrato l'uso delle funzioni Left, Right, Mid e Len di Microsoft Visual Basic, Applications Edition in Microsoft Excel:
Creare una nuova cartella di lavoro di Excel vuota.
Aprire la Editor di Visual Basic premendo ALT+F11.
Nel menu Inserisci, fare clic su Modulo.
Digitare la macro seguente nel nuovo foglio del modulo.
Sub String_Len()
' Sets MyString.
MyString = InputBox("Enter some text.")
' Displays length of string.
MsgBox Prompt:="The length of the string is " & _
Len(MyString) & " characters."
End Sub
Sub String_Left()
' Sets MyString.
MyString = InputBox("Enter some text.")
StringLen = Len(MyString)
Pos = InputBox("Please enter a number from 1 to " & StringLen)
' Takes the left number of specified characters.
Result = Left(MyString, Pos)
' Displays the result.
MsgBox Prompt:="The left " & Pos & " characters of """ & _
MyString & """ are: " & _
Chr(13) & Result
End Sub
Sub String_Right()
' Sets MyString.
MyString = InputBox("Enter some text.")
StringLen = Len(MyString)
Pos = InputBox("Please enter a number from 1 to " & StringLen)
' Takes the right number of specified digits.
Result = Right(MyString, Pos)
' Displays the result.
MsgBox Prompt:="The right " & Pos & " characters of """ & _
MyString & """ are: " & _
Chr(13) & Result
End Sub
Sub String_Mid()
' Sets MyString.
MyString = InputBox("Enter some text.")
' Sets starting position.
StartPos = InputBox _
("Give me a starting position (1 to " _
& Len(MyString) & ")")
' Determines length of string of text.
StringLen = Len(MyString) - StartPos + 1
' Sets number of characters.
NumChars = InputBox _
("How many characters would you like? (From 1 to " & _
StringLen & ")")
MsgBox prompt:="The result is: " & _
Mid(MyString, StartPos, NumChars)
End Sub
Per visualizzare un esempio delle funzioni Left, Right, Mid e Len, usare una delle procedure seguenti, come appropriato per la versione di Excel in esecuzione:
Per altre informazioni su queste funzioni, digitare il testo seguente in un foglio del modulo:
Evidenziare la funzione su cui si vogliono altre informazioni e quindi premere F1.
Formazione
Modulo
Uso delle funzioni predefinite di AL in Dynamics 365 Business Central - Training
Per saperne di più sulle funzioni di programmazione predefinite di Business Central, leggere questo modulo che illustra le diverse funzioni che possono essere usate durante lo sviluppo per Business Central.