Tekst naar Kolommen

[Georgyboy]

Beste Allen,

Graag had ik weer een tekstbestand naar kolommen gemaakt.
Bedoeling is om het op de duur te leren en zelf te kunnen doen.

De tekstbestanden kunnen verschillen van rijen en kolommen afhankelijk van de gegevens.
Zo kan er een deel van de rijen naar 6 kolommen moeten en een deel naar 8 rijen.
Hier in het voorbeeld is het telkens 6.

Ben begonnen met De gegevens van tabblad "gegevens" naar tabblad "test" over te brengen. maar zit natuurlijk vast.

Is het mogelijk om dit beter te begrijpen en met deze kennis dit op tal van tekstbestanden te kunnen toepassen,
weliswaar met dezelfde opmaak, enkel het aantal regels die gesplit moeten zijn verschillen.

De tekst is grappig omgevormd van gevoelige info :d

Alvast bedankt!
Groeten,
Georgyboy

 

[sylvester-ponte]

misschien kun je bald Gewenst ook even invullen.

 

[snb]

Sub M_snb()
  c00 = "J:\download\Tekst naar kolommen 2022.TXT"
  c01 = "J:\download\Tekst naar kolommen 2022_01.csv"
   
  With CreateObject("scripting.filesystemobject")
    .createtextfile(c01).write Replace(Replace(Application.Trim(Join(Filter(Split(.opentextfile(c00).readall, vbCrLf), "= "), vbLf)), "( ", "("), " ", ",")
  End With
    
  Workbooks.Open c01
End Sub

 

[Georgyboy]

Dankjewel snb,
moet jouw code nog eens uittesten

@ sylvester-ponte
Met bijlage bijgewerkte gegevens

Met dank,
Georgyboy

 

[Georgyboy]

@ snb

Jouw code kunnen testen, is heel interessant, met wat aanpassing en veel leren
kunnen we er iets mooi van maken.

Dankjewel!