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, 6438 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ä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 ...

Microsoft Office
gelöst Office 2010 und einfügen von .pcx Dateien (24)

Frage von DerWoWusste zum Thema Microsoft Office ...

Batch & Shell
Text in neue 1. Zeile in Textdatei einfügen (4)

Frage von FuxxLi zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...

Windows Tools
gelöst Aussendienst Datensynchronisierung (12)

Frage von lighningcrow zum Thema Windows Tools ...

Windows Server
RODC über VPN - Verbindung weg (10)

Frage von stefan2k1 zum Thema Windows Server ...