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

Tabs aus Textdateien entfernen

Frage Entwicklung

Mitglied: Iwan

Iwan (Level 2) - Jetzt verbinden

18.08.2008, aktualisiert 10:24 Uhr, 8186 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
C und C++
Automatische Tabs im Scintilla

Frage von Yanmai zum Thema C und C ...

Windows Systemdateien
Windows 10 Registry Einträge entfernen (18)

Frage von Hendrik2586 zum Thema Windows Systemdateien ...

Batch & Shell
gelöst Powershell Wert der Property entfernen manipulieren (9)

Frage von Nintox zum Thema Batch & Shell ...

Neue Wissensbeiträge
Batch & Shell

Batch - ein paar Basics die man kennen sollte

Tipp von Pedant zum Thema Batch & Shell ...

Microsoft

Restrictor: Profi-Schutz für jedes Window

(6)

Tipp von AlFalcone zum Thema Microsoft ...

Batch & Shell

Batch zum Zurücksetzen eines lokalen Profils

Tipp von Mr.Error zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Microsoft Office
Saubere HTML aus Word-Dokument (16)

Frage von peterpa zum Thema Microsoft Office ...

Router & Routing
ASUS RT-N18U mit VPN Client hinter Fritzbox - Portforwarding (15)

Frage von marshall75000 zum Thema Router & Routing ...

Hosting & Housing
gelöst Webserver bei WIX, aber DNS Server wo anders (9)

Frage von laster zum Thema Hosting & Housing ...