Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Zeilenumbrüche in Text-Dateien einfügen ?

Frage Entwicklung Batch & Shell

Mitglied: NuitShuHeru

NuitShuHeru (Level 1) - Jetzt verbinden

27.02.2012 um 19:04 Uhr, 6729 Aufrufe, 6 Kommentare

Hallo,

ich bin leider mit meine Batch- und VB-Kenntnissen an mein bescheidenes Limit gestoßen.

Ich kann zwar per Batch oder VBA nach Zeichenketten in einer Datei suchen und diese durch andere Zeichenketten ersetzen, hab aber leider keine Idee wie man diese durch einen Zeilenumbruch ersetzen könnte.

Bsp.:

aus:

TEXT1</>TEXT2</>TEXT3

soll werden:

TEXT1
TEXT2
TEXT3

Dabei ist sicher gestellt, dass die Zeichenfolge "</>" immer identisch ist und nicht innerhalb eines der Texte auftaucht. Eine einfache Funktion: Suche alle "</>" und ersetze sie durch einen Zeilenumbruch würde also völlig ausreichen.

Hat irgend wer eine schnelle schlaue Idee ?

Vielen Dank schonmal im Vorraus.
Nuit
Mitglied: icsat
27.02.2012 um 21:54 Uhr
Hallo NuitShuHeru,

hier eine Möglichkeit in VB:
01.
set fso = CreateObject("Scripting.FileSystemObject") 
02.
 
03.
strSearch = "</>" 
04.
 
05.
strInputFileName = "eingabe.txt" 
06.
strOutputFileName = "ausgabe.txt" 
07.
 
08.
set fInput = fso.OpenTextFile(strInputFileName, 1) 
09.
set fOutput = fso.CreateTextFile(strOutputFileName, True, False) 
10.
 
11.
Do While fInput.AtEndOfStream <> True 
12.
   strInputLine = fInput.ReadLine 
13.
   fOutput.WriteLine Replace(strInputLine, strSearch, vbCrLf) 
14.
Loop 
15.
 
16.
fOutput.Close 
17.
fInput.Close 
18.
 
19.
set fInput = nothing 
20.
set fOutput = nothing 
21.
set fso = nothing

Gruß icsAT
Bitte warten ..
Mitglied: TsukiSan
28.02.2012 um 06:12 Uhr
....oder bastla würde es sicher wieder vereinfachen:

01.
MeineDatei = "C:\MeineDatei.txt" 
02.
Set fso=CreateObject("Scripting.FileSystemObject") 
03.
txt=split(fso.OpenTextFile(MeineDatei).ReadAll,"</>"):fso.CreateTextFile (MeineDatei & ".neu.txt").Write (Join(txt,vbcrlf))
Gruss
Tsuki
Bitte warten ..
Mitglied: NuitShuHeru
28.02.2012 um 10:12 Uhr
Leute ihr seid die Besten !

Beide Versionen funzen super.

Vielen Dank

Nuit
Bitte warten ..
Mitglied: 76109
28.02.2012 um 10:20 Uhr
Hallo Tsuki!

....oder bastla würde es sicher wieder vereinfachen:
Eventuell auch so
01.
AlteDatei = "C:\Test\AlteDatei.txt" 
02.
NeueDatei = "C:\Test\NeueDatei.txt" 
03.
 
04.
Set Fso = CreateObject("Scripting.FileSystemObject") 
05.
 
06.
Fso.CreateTextFile(NeueDatei).Write Replace(Fso.OpenTextFile(AlteDatei).ReadAll, "</>", vbCrLf)
Gruß Dieter
Bitte warten ..
Mitglied: TsukiSan
28.02.2012 um 13:10 Uhr
Hallo Dieter,

mir war heute mal so - ein Replace in Form von Split'n'Join .
Ich hatte ehr Deine Anmerkung vom TO erwartet, um rauszufinden, ob er sich die paar Zeilen - die wir alle
hier hingezaubert haben - auch mal näher anschaut und hinterfragt.
Leider nicht! Sondern wir haben die fertigen Lösungen auf dem Silbertablett serviert.

Naja, der Lenz kommt bald

Gruss
Tsuki
Bitte warten ..
Mitglied: 76109
29.02.2012 um 00:16 Uhr
Hallo Tsuki!

mir war heute mal so - ein Replace in Form von Split'n'Join .
Und ich dachte, es liegt an der Uhrzeit

Naja, der Lenz kommt bald
Gottseidank

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Wie kann man die Standard-Schriftart bei einfügen von Text in Word 2013 festlegen? (3)

Frage von Rene1976 zum Thema Microsoft Office ...

VB for Applications
gelöst csv Dateien als Text importieren (7)

Frage von Bacchida zum Thema VB for Applications ...

Batch & Shell
Batch Datei: PDF Dateien verschieben, umbenennen und löschen (2)

Frage von F0rcehunter zum Thema Batch & Shell ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (16)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...

CMS
Lokales Wordpress im LAN - wie aufsetzen? (16)

Frage von Static zum Thema CMS ...

LAN, WAN, Wireless
IP im privaten Netz nicht erreichbar (14)

Frage von guntis zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
Devolo DLAN 500 pro Wireless+ (13)

Frage von IceAge zum Thema LAN, WAN, Wireless ...