VB Macro: Insert Line Breaks in a Text File

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
PetridesM
Δημοσιεύσεις: 5
Εγγραφή: 24 Μαρ 2005 16:31
Τοποθεσία: Λευκωσία, Κύπρος

VB Macro: Insert Line Breaks in a Text File

Δημοσίευση από PetridesM » 22 Ιουν 2005 09:31

Λοιπόν κύριοι.
'Εχουμε ένα αρχείο text το οποίο αποτελείται από ΜΙΑ γραμμή (δεν υπάρχει line break ανάμεσα στα records του).

Τα records του αρχείου διαχωρίζονται κάθε 100 χαρακτήρες.

Ζητούμενα:
'Ενα VB Macro το οποίο να δέχεται ως είσοδο το παραπάνω αρχείο, και να παράγει ως έξοδο ένα καινούριο αρχείο text, με line break κάθε 100 χαρακτήρες.

πχ. (αν το αρχείο ήταν 10 χαρακτήρες/record)
Είσοδος:
123456789123465789123456789123456789
'Εξοδος:
123456789
123465789
123456789
123456789

'Εχω ψάξει για έτοιμα μάκρος αλλά καμμία τύχη.

PetridesM
Δημοσιεύσεις: 5
Εγγραφή: 24 Μαρ 2005 16:31
Τοποθεσία: Λευκωσία, Κύπρος

VB Macro: Insert Line Breaks in a Text File

Δημοσίευση από PetridesM » 24 Ιουν 2005 09:45

To πρόβλημα ελήθη ως εξής:

Sub Mac1()
'
' Mac1 Macro
' Macro created 23/6/2005 by Marios.P
'
Open "<full path of file in windows>" For Input As #1
Do While Not EOF(1)
Selection.MoveRight unit:=wdCharacter, Count:=100
Selection.TypeParagraph
Loop
Close #1
End Sub

Άβαταρ μέλους
cordis
Administrator, [F|H]ounder, [C|S]EO
Δημοσιεύσεις: 27617
Εγγραφή: 09 Οκτ 1999 03:00
Τοποθεσία: Greece
Επικοινωνία:

VB Macro: Insert Line Breaks in a Text File

Δημοσίευση από cordis » 24 Ιουν 2005 14:06

ωραίο κολπάκι... ;)
Δεν απαντάω σε προσωπικά μηνύματα με ερωτήσεις που καλύπτονται από τις ενότητες του forum. Για ο,τι άλλο είμαι εδώ για εσάς.
- follow me @twitter

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες