Top-Themen

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 ?

Mitglied: NuitShuHeru

NuitShuHeru (Level 1) - Jetzt verbinden

27.02.2012 um 19:04 Uhr, 7198 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
Batch & Shell
Text an bestimmter Stelle einfügen
gelöst Frage von noob-xBatch & Shell2 Kommentare

Hallo bin mal wieder am Basteln, komm aber nicht weiter wie stelle ich es an dass nummer 1 immer ...

Webentwicklung

Foto Upload und Default Text einfügen

gelöst Frage von smackeeWebentwicklung12 Kommentare

Hallo zusammen Ich bin auf der Suche nach einem Tool oder wie man das umsetzen kann. Ein User laded ...

Batch & Shell

Text per Batchdatei kopieren und einfügen

Frage von imebroBatch & Shell47 Kommentare

Hallo, ich würde gerne für meine Kollegen eine kleine Hilfe basteln Wir nutzen ein Programm, in dem auch Memos ...

Batch & Shell

(Batch) festgelegte Zeichen vor und nach Text einfügen

gelöst Frage von unauthorized-userBatch & Shell2 Kommentare

Hallo Community, ich stehe gerade vor einem (wahrscheinlich sehr banalem) Problem und benötige eure Hilfe. Ausgangssituation: Ich habe mehrere ...

Neue Wissensbeiträge
Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 StundeGoogle Android

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 1 StundeSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 4 StundenMicrosoft2 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 22 StundenWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server35 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

CPU, RAM, Mainboards
32 gb RAM zu wenig?
Frage von pcguyCPU, RAM, Mainboards13 Kommentare

Hallo zusammen, mein PC verfügt über 32GB Ram. Nun kriege ich bei grossen Dateien im Illustrator die Fehlermeldung das ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing9 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...