Kuidas eemaldada RTF-sildid VBA-s

Kui sisestate teksti redigeerimiskontrolliga aknas, näiteks luuakse oma veebisaidile uus blogipost või artikkel, salvestatakse tekst sageli rikas tekstivormingus. RTF-märgendid sisaldavad vorminguteavet, näiteks fontide perekonda, fondi suurust ja parendusi, näiteks rasvases kirjas ja kaldkirjas. Kui avate teksti Microsoft Visual Basiciga, ei pruugi te kaasata RTF-sildid. Neid saab eemaldada, kirjutades Visual Basic'is funktsiooni, mis salvestab faili lihttekstina ja tagastab seejärel funktsiooni lihtteksti versiooni.

1.

Klõpsake Windowsi töölaual nuppu "Start". Visual Studio käivitamiseks valige "Kõik programmid" ja "Microsoft Visual Studio". Uue Visual Basic projekti käivitamiseks klõpsake "New Project" ja valige "Windows", et lisada Microsoft Windows'i vaikesüsteemi raamatukogud.

2.

Loo uus funktsioon vaikeklassis, mis ilmub uues projektiaknas, tippides klassi määratluse alla. Määrake funktsioonile nimi, aktsepteerige faili nime, millest soovite RTF-märgendid eemaldada "String" parameetrina, ja deklareerige tagastusväärtuse tüüp "String". Kontrollige, kas parameeter on väärtusega. Näiteks tippige projekti aknasse järgmine:

Funktsioon RemoveRTF (failinimi stringi kujul) stringina

Kui failinimi = "" siis Välju funktsiooni lõpp, kui

Lõppfunktsioon

3.

Looge uus RichTextBoxi juhtimine ja laadige failist fail, kasutades rutiinile edastatud failinime. Näiteks tippige projekti aknas "Lõppfunktsiooni" kohal järgmine aken:

Dim richTextBox1 on uus RichTextBox () richTextBox1.LoadFile (failinimi)

4.

Eemaldage RTF-märgendid, salvestades faili lihttekstina. Lisage failile tavaline tekstilaiend ja kasutage valikut "RichTextBox", et salvestada see lihttekstina. Näiteks tippige projekti aknas "Lõppfunktsiooni" kohal järgmine aken:

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

5.

Laadige faili lihtteksti versioon funktsiooni tagastusväärtuseks. Vajaduse korral kuvage tulemused ekraanil. Näiteks tippige projekti aknas "Lõppfunktsiooni" kohal järgmine aken:

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