Wie gesagt, mit RegEx sollte es auch gehn. (aber das Ergebnis solltest du noch prüfen, dass auch jeweils die richtigen beiden " zusammen verwendet wurden).
Das von Moombas, wäre in etwa so
Delphi-Quellcode:
SL := TStringList.Create;
SL.LoadFromFile(...);
for i := SL.Count - 2 downto 0 do
// if Odd(SL[i + 1].CountChar('"')) then begin // Delphi 10.x
if Odd(CountChar('"', SL[i + 1])) then begin // irgendwo eine Funktion suchen, die sowas macht
SL[i] := SL[i] + 'dasTennzeichen' + SL[i + 1];
SL.Delete(i + 1);
end;
SL.SaveToFile(...);
SL.Free;
von vorne nach hinten geht auch, aber hab keine Lust auf While mit Inc(i)
statt
CountChar('"', S)
ginge auch
Length(S) - Length(ReplaceStr(S, '"', ''))
statt TStringList geht es auch mit TArray<string> und TFile.ReadAllLines (Delphi 10.x)