bir metin dosyasından satırları okuyun ama metin dosyasının satırları okuyan, Microsoft Office Word 2003'te bu makro kodu var

Question

ilk iki satırı atlamak. Satırların her biri, daha sonra kodda kullanmam gereken bir dize değerini temsil eder.

Ancak, metin dosyasının ilk iki satırı ihtiyacım yok bazı şeyler içeriyor. Kodu ilk iki satırı atlayacak şekilde nasıl değiştirebilirim? Word'de VBA editörü içinde "IntelliSense" kod bu

Dim sFileName As String 
Dim iFileNum As Integer 
Dim sBuf As String 
Dim Fields as String 

sFileName = "c:\fields.ini" 
''//Does the file exist? 
If Len(Dir$(sFileName)) = 0 Then 
    MsgBox ("Cannot find fields.ini") 
End If 

iFileNum = FreeFile() 
Open sFileName For Input As iFileNum 
Do While Not EOF(iFileNum) 
    Line Input #iFileNum, Fields 

    MsgBox (Fields) 

gibi görünür Ve bu kod şu anda bana çizgilerin hepsi verir ve benim yok

neyse .. Sert btw berbat İlk ikisini de istiyorum.

Answer 1

. Ayrıca yavaş ve çok hataya eğilimli.

VBA düzenleyicinizde, Araçlar menüsünden Referanslar'ı seçin ve hemen hemen tüm XP veya Vista makinelerinde bulunması gereken "Microsoft Scripting Runtime" (scrrun.dll) dosyasına bakın. Orası, seç. Artık bir erişmesini (bana en azından) yerine daha sağlam bir çözüm:

With New Scripting.FileSystemObject 
    With .OpenTextFile(sFilename, ForReading) 

     If Not .AtEndOfStream Then .SkipLine 
     If Not .AtEndOfStream Then .SkipLine 

     Do Until .AtEndOfStream 
      DoSomethingImportantTo .ReadLine 
     Loop 

    End With 
End With 

Answer 2

Ben basitleştiriyorsun am olabilir?

Open sFileName For Input as iFileNum 
Line Input #iFileNum, dummy1 
Line Input #iFileNum, dummy2 
........ 

Sundar

Answer 3

Open sFileName For Input As iFileNum 

Dim LineNum As Long 
LineNum = 0 

Do While Not EOF(iFileNum) 
    LineNum = LineNum + 1 
    Line Input #iFileNum, Fields 
    If LineNum > 2 Then 
    DoStuffWith(Fields) 
    End If 
Loop 

Answer 4

Sen rastgele erişimini kullanabilir:

Sadece aşağıdaki kodu ekleyin. Bütün Open <file path> For Input As <some number> şey yüzden 1990'lar olduğunu Yani

Open "C:\docs\TESTFILE.txt" For Random As #1 

    Position = 3 ' Define record number. 
    Get #1, Position, ARecord ' Read record. 

Close #1 

Answer 5

Dim sFileName As String 
Dim iFileNum As Integer 
Dim sBuf As String 
Dim Fields as String 
Dim TempStr as String 

sFileName = "c:\fields.ini" 
''//Does the file exist? 
If Len(Dir$(sFileName)) = 0 Then 
    MsgBox ("Cannot find fields.ini") 
End If 

iFileNum = FreeFile() 
Open sFileName For Input As iFileNum 

''//This part skips the first two lines 
if not(EOF(iFileNum)) Then Line Input #iFilenum, TempStr 
if not(EOF(iFileNum)) Then Line Input #iFilenum, TempStr 

Do While Not EOF(iFileNum) 
    Line Input #iFileNum, Fields 

    MsgBox (Fields) 
Loop