Sådan redigerer du csv- og tekstfiler med VBA (Excel-makroer).

Udgivelsesdato：5. juli 2022.

Oversigt.

Jeg vil gerne beskrive, hvordan man redigerer csv- og tekstfiler med VBA (Excel-makroer). Artiklen er beregnet til personer, der ønsker at programmere følgende opgaver

• Jeg ønsker at tilføje rækker til en allerede eksisterende csv- eller tekstfil. Jeg vil gerne tilføje tekst midt på en linje.
• Jeg ønsker at slette linjer i en allerede eksisterende csv- eller tekstfil.

1. Programmeringsmetode

Det kan konkluderes, at FileSystemObject ikke har mulighed for at tilføje midt i en linje eller slette en bestemt linje, så du skal selv programmere det.

Nedenfor er vist referenceeksempler på programmering.

Da den er oprettet i Function, håber jeg, at du kan bringe den ind som den er ved at kopiere og indsætte den, og få den til at kalde metoder fra Sub.

'Parameter Examples

'## filePath      C:\Users\user\Desktop\test\test.txt

'## mode          false:delete, true:write

'## targetRow     10

'## targetInput   If in write mode, any character

'## lineBreakType false:vbLf, true:vbCrLf

Function editFile(filePath As String, mode As Boolean, targetRow As Long, targetInput As String, lineBreakType As Boolean)

'File existence check

If Dir(filePath) = "" Then

  MsgBox "File does not exist!"

  Exit Function

End If

Dim tempText As String

Dim tempTextBefore As String

Dim tempTextNew As String

Dim tempTextAfter As String

Dim resultText As String

Dim i As Long

'File read

With CreateObject("ADODB.Stream")

  .Charset = "UTF-8"

  .Open

  .LoadFromFile filePath

  tempText = .ReadText

  .Close

End With

Dim tempTextBeforeRow As Long

tempTextBeforeRow = 0

For i = 1 To targetRow - 1

  If lineBreakType Then

    tempTextBeforeRow = InStr(tempTextBeforeRow + 1, tempText, vbCrLf)

  Else

    tempTextBeforeRow = InStr(tempTextBeforeRow + 1, tempText, vbLf)

  End If

Next i

If lineBreakType Then

  tempTextBeforeRow = tempTextBeforeRow + 1

End If

tempTextBefore = Left(tempText, tempTextBeforeRow)

'write

If mode Then

  tempTextAfter = Mid(tempText, tempTextBeforeRow + 1, Len(tempText))

  If lineBreakType Then

    tempTextNew = targetInput & vbCrLf

  Else

    tempTextNew = targetInput & vbLf

  End If

  resultText = tempTextBefore & tempTextNew & tempTextAfter

'delete

Else

  Dim tempTextAfterRow As Long

  tempTextAfterRow = 0

  For i = 1 To CInt(targetRow)

    If lineBreakType Then

      tempTextAfterRow = InStr(tempTextAfterRow + 1, tempText, vbCrLf)

    Else

      tempTextAfterRow = InStr(tempTextAfterRow + 1, tempText, vbLf)

    End If

  Next i

  If lineBreakType Then

    tempTextAfterRow = tempTextAfterRow + 1

  End If

  tempTextAfter = Mid(tempText, tempTextAfterRow + 1, Len(tempText))

  resultText = tempTextBefore & tempTextAfter

End If

With CreateObject("ADODB.Stream")

  .Charset = "UTF-8"

  If lineBreakType Then

    .LineSeparator = -1

  Else

    .LineSeparator = 10

  End If

  .Open

  .WriteText tempTextBefore & tempTextNew & tempTextAfter, 0

  .SaveToFile filePath, 2

  .Close

End With

End Function

For at bruge den skal du angive følgende argumenter.

• filePath・・・Dette vil være den fulde sti til filen. Eksempel.）C:\Users\user\Desktop\test\test.txt
• mode・・・Passer sandt, falsk. Hvis sand, tilføj. Hvis falsk, slettes rækken.
• targetRow・・・Angiver antallet af målrækker. I tilfælde af tilføjelser er det antallet af linjer, der skal tilføjes, og i tilfælde af sletninger er det antallet af linjer, der skal slettes.
• targetInput・・・For postscripts skal du angive den værdi, der skal tilføjes. Den bruges ikke til sletning og kan være en vilkårlig værdi. Tomme bogstaver er også acceptable.
• lineBreakType・・・Indstilling af newline-tegn. Hvis True, vbCrLf. vbLf hvis False. Kort sagt: Sandt for filer, der er oprettet i Windows.

Tegnkodningen er UTF-8, men hvis du ønsker at ændre den, skal du ændre funktionskoden direkte. Der er to steder, hvor ".Charset = "UTF-8"".

Nedenfor er vist et eksempel på en implementering af et faktisk funktionsopkald.

Sub test()

'Eksempel på tilføjelse af test123 til linje 5 i test.txt.（Filer oprettet i Windows.）

editFile "C:\Users\user\Desktop\test\test.txt", True, 5, "test123", True

'Eksempel på sletning af linje 5 i test.txt.（Filer oprettet i Windows.）

editFile "C:\Users\user\Desktop\test\test.txt", False, 5, "", True

End Sub

Hvis du vil vedhæfte som en csv-fil, skal du gøre argumentet for den værdi, der skal vedhæftes, til en kommasepareret værdi, og der vil blive vedhæftet en kommasepareret værdi. Eksempel.）"test1,test2,test3"

2. Kode Beskrivelse.

Dette er slutningen af vejledningen om, hvordan systemet skal bruges, efterfulgt af en forklaring af koden.

Detaljerne kan findes i koden, men et groft procesforløb er som følger.

Til efterskrift.

• ①Læsning af tekstfiler i stier, der er angivet som argumenter.
• ②Antallet af tegn op til det antal linjer, der er angivet i argumentet, er angivet ud fra antallet af newlines. For linje 5 er der f.eks. fire linjeskift før linje 5, så find den position, hvor det fjerde linjeskift er fundet
• ③Hent oplysninger op til og med linje 4.
• ④(2) Indsaml oplysninger fra linje 5 og frem på samme måde som i (2).
• ⑤Oplysningerne i (3), de oplysninger, der skal vedhæftes som et argument, og oplysningerne i (4) kombineres sammen.
• ⑥Opret en fil baseret på oplysningerne i (5), og overskriv filen.

I tilfælde af sletning

• ①Læsning af tekstfiler i stier, der er angivet som argumenter.
• ②Antallet af tegn op til det antal linjer, der er angivet i argumentet, er angivet ud fra antallet af newlines. For linje 5 er der f.eks. fire linjeskift før linje 5, så find den position, hvor det fjerde linjeskift er fundet
• ③Hent oplysninger op til og med linje 4.
• ④(2) Indsaml oplysninger fra linje 6 og frem på samme måde som i (2).
• ⑤Oplysningerne i (iii) og (iv) kombineres sammen. （Opret en streng uden femte linje.）
• ⑥Opret en fil baseret på oplysningerne i (5), og overskriv filen.

I tilfælde af tilføjelse og sletning er begge dele det samme, men i stedet for at redigere filen gøres det, som om kun de nødvendige oplysninger udtrækkes fra den oprindelige fil, og en ny fil oprettes og gemmes i stedet.

3. resumé

Hvis du har problemer med at redigere csv/tekstfiler med VBA (Excel-makroer), kan du læse dette afsnit.

Tak, fordi du kiggede med til slutningen.