Sådan fjerner du RTF-tags i VBA

Når du indtaster tekst i et vindue med redigeringskontrol, som for eksempel at oprette et nyt blogindlæg eller en artikel til virksomhedens hjemmeside, gemmes teksten ofte i rigtigt tekstformat. RTF-tags indeholder formateringsoplysninger som skrifttypefamilie, skrifttypestørrelse og forbedringer som f.eks. Fed og kursiv. Når du får adgang til teksten med Microsoft Visual Basic, kan du ikke have RTF-tagsne inkluderet. Du kan fjerne dem ved at skrive en funktion i Visual Basic, der gemmer filen i almindelig tekst og returnerer den almindelige tekstversion fra funktionen.

1.

Klik på knappen "Start" på dit Windows-skrivebord. Vælg "Alle programmer" og "Microsoft Visual Studio" for at starte Visual Studio. Klik på "Nyt projekt" for at starte et nyt Visual Basic-projekt, og vælg "Windows" for at inkorporere standard systembiblioteker til Microsoft Windows.

2.

Opret en ny funktion inde i standardklassen, der vises i det nye projektvindue ved at skrive under klasset definitionen. Tildel et navn til funktionen, accepter filnavnet til den fil, hvorfra du vil fjerne RTF-tags som en "String" -parameter, og erklærer typen af ​​returværdi som "String". Kontroller, at parameteren har en værdi. Skriv eksempelvis følgende i projektvinduet:

Funktion RemoveRTF (filnavn som streng) som streng

Hvis filnavn = "" Afslut derefter Funktion Slut Hvis

Slutfunktion

3.

Opret en ny RichTextBox-kontrol og indlæs teksten fra filen ved hjælp af det filnavn, der blev overført til rutinen. Skriv eksempelvis følgende i projektvinduet over "End Function" -taggen:

Dim richTextBox1 som New RichTextBox () richTextBox1.LoadFile (filnavn)

4.

Fjern RTF-tags ved at gemme filen som en almindelig tekstfil. Tilføj standard tekstudvidelse til filen og brug "RichTextBox" mulighed for at gemme det som almindelig tekst. Skriv eksempelvis følgende i projektvinduet over "End Function" -taggen:

richTextBox1.saveFile (Filnavn & ".txt", RichTextBoxStreamType.PlainText)

5.

Indlæs plain tekstversionen af ​​filen som funktionens returværdi. Vis resultaterne på skærmen, hvis det er relevant. Skriv eksempelvis følgende i projektvinduet over "End Function" -taggen:

RemoveRTF = My.Computer.FileSystem.ReadAllText (Filnavn & ".txt") MsgBox (RemoveRTF)