In staat zijn om een lijn van tab - gescheiden tekst met behulp van Visual Basic for Applications en ontleden van elk van de woorden kan uw VBA applicatie dynamischer te maken te lezen . Vaak programmeurs moeten tab - gescheiden bestanden lezen en weergeven van de inhoud van die bestanden . In VBA , gebruik de " OpenTextFile " methode om een tekstbestand dat door tabs gescheiden gegevens bevat. Zoek elke regel voor tabbladen met behulp van de " vbTab " VBA constant . Dit proces is handig wanneer u nodig hebt om snel tabbladen in een string in plaats van het lezen van elk karakter in de string . Wat je nodig hebt
Microsoft Excel
Toon Meer Aanwijzingen
1 Klik op de knop Start en typ " Notepad " Vensters in de " Search Programma's en bestanden" tekstvak . Druk op "Enter " om Notepad te lanceren . Typ " Dit , " druk " Tab , " type " is , " druk " Tab , " type " a ", druk op " Tab , " "tab ," type pers " Tab , " type " afgebakend , " druk " Tab " en type " zin . " Druk op " Ctrl " en " S " om het bestand op te slaan in " C : . \\ MyTextFile.txt "
Lancering Microsoft Excel- 2 , klikt u op het tabblad " Developer " en klik op " Visual Basic " te lanceren de VB editor . Klik op het menu "Invoegen " en klik op "Module " om een nieuwe code -module toe te voegen . Klik op het menu "Extra " en klik op " Referenties . " Vink het vakje aan naast " Microsoft Scripting Runtime " en klik
Type 3 van de volgende opties om een nieuwe sub procedure creëren " OK . " : Private Sub readTabDelimited ( ) op Twitter
4 Voeg de volgende code toe aan variabelen op te geven : Dim oFSO
als Nieuwe FileSystemObject
Dim OFS
Dim sText als Koord < br > Dim tmpArray ( 10 ) als Koord
Dim pos als Geheel Dim Xcntr
als Geheel
5 openen en lees de tekst bestand gemaakt in stap 1 : Set OFS = oFSO.OpenTextFile
( " C : \\ myTextFile.txt " ) op Twitter Doe tot oFS.AtEndOfStream sText
= oFS.ReadLine
Loop
6 zoeken elk tabblad in het tab-gescheiden zin en voeg elk woord aan de String -array :
pos = InStr ( 1 , sText , vbTab , vbTextCompare ) < br > Do While ( pos < > 0 ) tmpArray
( Xcntr ) = Left ( sText , pos - 1 ) op Twitter sText = Right ( sText , Len ( sText ) - pos ) op pos = InStr ( 1 , sText , vbTab , vbTextCompare ) Xcntr = Xcntr + 1
Als ( pos = 0 ) dan
tmpArray ( Xcntr ) = sText End
Als Loop
7
Laat elk woord door het venster Direct van de String -array : Xcntr
= 0
Do While ( tmpArray ( Xcntr ) < > " " ) Debug.Print tmpArray
( Xcntr ) op Xcntr = Xcntr + 1
Loop
End 8 van de procedure door het intikken van " End Sub " als de laatste regel van de VBA-code . Druk op " Ctrl " en " G " aan de " Immediate " venster weer te geven en druk op " F5 " om de procedure uit te voeren.
|
