Det finns flera olika tecken som representerar en accent . Graven tilde och akuta accenter representeras av en speciell karaktär över bokstaven i ordet . Även om det inte finns många engelska ord med accenter , det finns flera i franska och spanska . När du tar emot eller skickar franska eller spanska uppgifter från Visual Basic till antingen en databas eller ett annat program skrivet i ett annat programmeringsspråk , kan det vara nödvändigt att ta bort accent innan det andra programmet kan bearbeta det . Instruktioner
1
Skapa ett nytt Standard-EXE Visual Basic-program . Lägg förmågan att läsa och bearbeta data från en extern fil genom att välja " Project " och "Referenser . " Markera rutan bredvid " Microsoft Scripting Runtime " och klicka på " OK " för att spara . Detta ger programmet tillgång till Windows API för filhantering
2
Deklarera två variabler : . En som en " FileSystemObject " och den andra som en " TextStream " :
Dim oFSO som New Scripting.FileSystemObject
Dim oMyFile som Scripting.TextStream
Nästa , öppna filen för läsning i TextStream .
Set oMyFile = oFSO.OpenTextFile ( filnamn ForReading ) katalog
försäkrar även en variabel för att hålla varje rad i TextStream som " Dim sLineRead som String . " Addera 3
Process linjen textfil linje inom ett skriftligt loop som " Även om inte oMyFile.AtEndOfStream . " Ställ " sLineRead " lika med en textrad från TextStream :
sLineRead = oMyFile.ReadLine
p Om det finns några accenter som ingår i " sLineRead " kan du ersätta dem med ett annat värde med VB : s " ersätta " metoden .
4
Identifiera accent tecknet tas bort . Till exempel , kan text som innehåller " è " ersättas med " e " före visning eller infoga data i en databas :
sLineRead = Ersätt ( sLineRead , "E" , " e " )
Denna kodrad ersätter alla förekomster av "e" med " e " i textrad läses in " sLineRead " utan att ändra något av de ursprungliga uppgifterna .
