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 Tabs aus Textdateien entfernen

Mitglied: Iwan

Iwan (Level 2) - Jetzt verbinden

18.08.2008, aktualisiert 10:24 Uhr, 8263 Aufrufe, 2 Kommentare

Guten morgen zusammen,

ich habe einen Ordner mit ca. 200 Textdateien darin. Diese sollen automatisiert nach Excel importiert werden (feste Breite), was auch soweit klappt.
Leider haben einige der Dateien Tabulatoren in ihren Zeilen drin, die ich vor dem Import entfernen muss, da sonst der Import nicht einwandfrei funktioniert.
Da ich dies nicht per Hand machen will, suche ich nach einer Möglichkeit, dies per VBS oder Batch zu machen.
Leider ist Google heute morgen nicht mein Freund und ich finde leider kein Ergebnis dazu.

Hat jemand eine Idee hier zu?
Mitglied: Logan000
18.08.2008 um 09:10 Uhr
Moin moin
Das folgende Bsp. solte Dir weiterhelfen.

01.
Set objFSO = CreateObject("Scripting.FileSystemObject") 
02.
Set objSourceFile = objFSO.OpenTextFile("Source.txt", 1)	' Quelldatei öffnen 
03.
Set objDestFile = objFSO.CreateTextFile("Dest.txt", True)	' Zieldatei anlegen 
04.
	Do Until objSourceFile.AtEndOfStream 	                        ' Gesamtes TextDok durchgehen 
05.
		szNextLine = objSourceFile.Readline	                ' Zeile aus Quelldatei einlesen 
06.
		szNextLine = Replace(szNextLine,vbTab," ")           ' Tab duch Leerzeichen ersetzen 
07.
		objDestFile.writeline szNextLine                              '  Zeile in Zieldatei schreiben 
08.
	Loop
Gruß L.
Bitte warten ..
Mitglied: Iwan
18.08.2008 um 10:24 Uhr
Danke, das hat mir sehr geholfen
Ich konnte es sogar in mein Excel Makro vor dem Import integrieren.
Allerdings musste ich noch ein Delete und Name mit einbauen, da ich sonst die Dateien ja doppelt habe (Datei wird vorher mit kompletten Pfad und Dateinamen befüllt):
01.
DateiTemp = Datei & ".a" 
02.
Set FSO = CreateObject("Scripting.FileSystemObject") 
03.
Set objSourceFile = FSO.OpenTextFile(Datei, 1) 
04.
Set objDestFile = FSO.CreateTextFile(DateiTemp, True) 
05.
    Do Until objSourceFile.AtEndOfStream 
06.
        szNextLine = objSourceFile.Readline 
07.
        szNextLine = Replace(szNextLine, vbTab, "") 
08.
        objDestFile.writeline szNextLine 
09.
    Loop 
10.
objSourceFile.Close 
11.
objDestFile.Close 
12.
FSO.GetFile(Datei).Delete 
13.
Name DateiTemp As Datei
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VBS-Entfernen von Zeilen in einer Textdatei

Frage von Calim3roVB for Applications5 Kommentare

Hallo zusammen Ich möchte aus einer Textdatei Zeilen entfernen. Ich habe drei Dateien, in Datei "A" stehen Wörter, in ...

Ubuntu

Nach Zeilen aus der ersten Textdatei in der zweiten Textdatei suchen und diese dort entfernen

gelöst Frage von takitanoUbuntu3 Kommentare

Frohes Neues an alle! Ich habe 2 Textdateien. Die erste Textdatei beinhaltet Suchbegriffe, die ich in der zweiten Datei ...

Batch & Shell

Entfernen eines Strings vor einem bestimmten Zeichens in einer Textdatei

gelöst Frage von Privex007Batch & Shell3 Kommentare

Hallo an alle Coder, ich habe Probleme mit dem extrahieren eines String aus einer "txt"-Datei. Ich habe folgende Zeilen ...

Batch & Shell

Leerzeilen per Batch aus Textdatei entfernen

gelöst Frage von Yenne97Batch & Shell9 Kommentare

Hallo Zusammen Ich bin neu hier. Ich würde gerne einen Batch schreiben der: 1. In einer Textdatei alle Leerzeichen ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 TagWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

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

Heiß diskutierte Inhalte
Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Windows Netzwerk
Backup über WAN
Frage von petereWindows Netzwerk11 Kommentare

Hallo, ich muss aus einem entfernten WAN (synchrone 1Gbit) Daten sichern. Dabei handelt es sich sowohl um wenige große ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...