Quando si immette del testo in una finestra con controlli di modifica, ad esempio per creare un nuovo post del blog o un articolo per il sito Web della propria azienda, il testo viene spesso archiviato in formato RTF. I tag RTF contengono informazioni di formattazione come la famiglia di caratteri, la dimensione dei caratteri e miglioramenti come il grassetto e il corsivo. Quando si accede al testo con Microsoft Visual Basic, potresti non voler includere i tag RTF. È possibile rimuoverli scrivendo una funzione in Visual Basic che salva il file in testo normale e quindi restituisce la versione in testo normale dalla funzione.
1
Fare clic sul pulsante “Start” sul desktop di Windows. Scegli “Tutti i programmi” e “Microsoft Visual Studio” per avviare Visual Studio. Fare clic su “Nuovo progetto” per iniziare un nuovo progetto Visual Basic e selezionare “Windows” per incorporare le librerie di sistema predefinite per Microsoft Windows.
2
Crea una nuova funzione all’interno della classe predefinita che appare nella finestra del nuovo progetto digitando sotto la definizione della classe. Assegnare un nome alla funzione, accettare il nome del file da cui si desidera rimuovere i tag RTF come parametro “String” e dichiarare il tipo di valore restituito come “String”. Controlla per assicurarti che il parametro abbia un valore. Ad esempio, digita quanto segue nella finestra del progetto:
Funzione RemoveRTF (filename As String) As String
If filename = “” Allora Exit Function End If
End Function
3
Creare un nuovo controllo RichTextBox e caricare il testo dal file utilizzando il nome del file passato alla routine. Ad esempio, digita quanto segue nella finestra del progetto sopra il tag “End Function”:
Dim richTextBox1 come New RichTextBox () richTextBox1.LoadFile (nomefile)
4
Rimuovere i tag RTF salvando il file come file di testo normale. Aggiungi l’estensione di testo standard al file e utilizza l’opzione “RichTextBox” per salvarlo come testo normale. Ad esempio, digita quanto segue nella finestra del progetto sopra il tag “End Function”:
richTextBox1.saveFile (nome file & “.txt”, RichTextBoxStreamType.PlainText)
5
Carica la versione in testo normale del file come valore restituito dalla funzione. Visualizzare i risultati sullo schermo, se appropriato. Ad esempio, digita quanto segue nella finestra del progetto sopra il tag “End Function”:
RemoveRTF = My.Computer.FileSystem.ReadAllText (Filename & “.txt”) MsgBox (RemoveRTF)