Replace af ; i CSV fil

Et forslag (utestet):

Tak for forslaget,

Hvis min streng hedder "Line" hvorledes sætter jeg den så ind i din funktion ?

Line = "post1, post2, "post; 3"; post"

På forhånd tak

Anders

Den melder fejl her:

Cannot use parentheses when calling a Sub
Replace(Line,";","",quote1)

Korrektion:
Scriptet kan kun bruges, såfremt der højst kan forekomme én ; indenfor anførselstegnene. For at finde frem til samtlige ; kan det følgende formentlig bruges (stadig utestet) - jeg har indsat line som din tekststreng:

uhmm, den melder stadig fejl ved:

Cannot use parentheses when calling a Sub
Replace(Line,";","",quote1)

Det er langt fra alle liner som har denne hændelse, kan man lave det således at den ikke melder fejl ved dem som ikke har?

MvH

Anders!

Rækken post1, post2, "post; 3"; post4

skal den redigeres som de øvrige?
således at ""'er fjernes og ; --> ,

VBA skulle nok kunne fikse dette problem ved gennemlæsning af filen.

Du er velkommen til at sende et repræsentativt uddrag - @-adresse under profil.

Et bud:

Rem VBA-kode anbringes under ark i Excel-fil

Const redigeretFilSti = "C:\Documents and Settings\pb.KHNBPB\Skrivebord\CSV\"  'justeres
Const redigeretFilNavn = "redigeretFil.csv"                                    'justeres

Dim filId As String, linje As String, redLinje As String
Dim ræk As Long, r As String
Private Sub worksheet_activate()
    filId = Application.GetOpenFilename
   
    ræk = 1
    Open filId For Input As #1
    Open filredigeretfilsti + redigeretFilNavn For Output As #2
   
    While Not EOF(1)
        Input #1, linje
        redLinje = redigerLinjen(linje)
        r = ræk
       
Rem evt. test i regneark
'        Range("A" & r) = redLinje
'        ræk = ræk + 1
       
        Print #2, redLinje
    Wend
    Close #1
    Close #2
    Columns.AutoFit
End Sub
Private Function redigerLinjen(linje)
Dim f As Integer, tegn As String, p1 As Byte, p2 As Byte
Dim redLinje As String
    redLinje = ""
    For f = 1 To Len(linje)
        tegn = Mid(linje, f, 1)
        If tegn = Chr(34) Then
            If p1 = 0 Then
                p1 = f
            Else
                p1 = 0
            End If
        Else
            If p1 > 0 Then
                If tegn <> ";" Then
                    redLinje = redLinje + tegn
                End If
            Else
                If tegn = ";" Then
                    tegn = ","
                End If
                redLinje = redLinje + tegn
            End If
        End If
    Next f
    redigerLinjen = redLinje
End Function

Okay, her er det færdigtkorrigerede forslag (denne gang testet og virkende).

Din tekst-streng skal hedde line.
Det fungerer således, at tekst-strengen splittes op i tre dele i løbet af søgningen:
- Én del, som består af indholdet mellem to apostroffer
- Én del, som indeholder al tekst før den første apostrof (dette er gennemarbejdet tekst)
- Én del, som indeholder al tekst efter den sidste apostrof (dette er endnu ikke-gennemarbejdet tekst)

Dermed kan der arbejdes isoleret med selve indholdet mellem apostrofferne.

Efter ét fund af et apostrof-sæt, sendes den af de tre dele, der indeholder ikke-gennemarbejdet tekst, endnu engang igennem script'et, og dermed findes der efterhånden frem til alle apostrof-sæt (jeg har her antaget, at apostroffer altid vil forekomme i sæt á to).

Scriptet er sat til at fjerne de pågældende semikolon-tegn.