Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 7002 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 ...

Webentwicklung
gelöst Foto Upload und Default Text einfügen (12)

Frage von smackee zum Thema Webentwicklung ...

Batch & Shell
gelöst Powershell - Zeilenumbruch in Mail (2)

Frage von rodgerwilco zum Thema Batch & Shell ...

Batch & Shell
gelöst Text Datei bestimmte Bereiche lesen und in neue Text schreiben (3)

Frage von TurboD zum Thema Batch & Shell ...

Neue Wissensbeiträge
Humor (lol)

Wohnt jemand in Belgien und kann nicht mehr ruhig ausschlafen?

(3)

Information von LordGurke zum Thema Humor (lol) ...

Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft Office
ICH BIN AM ENDE MEINES IT-WISSENS ANGELANGT!!!! (38)

Frage von 134537 zum Thema Microsoft Office ...

Windows Server
Gruppenrichtlinie greift nicht zu! (24)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...