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

Zeichen zwischen 2 Trennzeichen in einer Textdatei ersetzen

Frage Entwicklung VB for Applications

Mitglied: meff53

meff53 (Level 1) - Jetzt verbinden

24.02.2011 um 22:09 Uhr, 5980 Aufrufe, 2 Kommentare

Hallo Experten,

ich lese schon seit Stunden hier und experimentiere
mit den gefundenen Lösungsansetzen ohne Erfolg.

Ich habe eine Textdatei (CSV-Format, Werte mit Semikolons getrennt).
Die Datei stammt aus einem DOS-Programm und soll mit Excel
geöffnet werden. In einer Spalte steht Datenmüll, der das
Öffnen mit Excel verhindert. Da diese Spalte nicht benötigt
wird, lautet die Aufgabe:

Ersetze in der Textdatei alle Zeichen zwischen dem 15. und 16.
Semikolon durch ein beliebiges Zeichen (z.B. Leerzeichen)
oder die Zeichen entfernen.

Kann mir jemand helfen ?

Gruß
Burkhard
Mitglied: bastla
24.02.2011 um 22:55 Uhr
Hallo meff53 und willkommen im Forum!

In diesem Fall würde sich ein VBScript der Art
01.
Datei = "D:\Deine.csv" 
02.
Delim = ";" 'Trennzeichen 
03.
FeldNr = 15 'x. Trennzeichen vor dem zu ersetzenden Feld 
04.
Ersatz = " " 'einzufügendes Ersatzzeichen 
05.
 
06.
Set fso = CreateObject("Scripting.FileSystemObject") 
07.
Zeilen = Split(fso.OpenTextFile(Datei).ReadAll, vbCrLf) 
08.
For i = 0 To UBound(Zeilen) 
09.
    Felder = Split(Zeilen(i), Delim) 
10.
    If UBound(Felder) >= FeldNr Then Felder(FeldNr) = Ersatz 
11.
    Zeilen(i) = Join(Felder, Delim) 
12.
Next 
13.
fso.CreateTextFile(Datei).Write Join(Zeilen, vbCrLf)
anbieten ...

... obwohl es ja auch möglich sein sollte, die Datei auf zB "Deine.txt" umzubenennen, in Excel zu importieren (über "Öffnen") und dabei die entsprechende Spalte vom Import auszuschließen (Schritt 3 des Assistenten: "Spalten nicht importieren (überspringen)") ...

Grüße
bastla
Bitte warten ..
Mitglied: meff53
25.02.2011 um 09:41 Uhr
Vielen Dank für die schnelle Antwort, es hat super funktioniert.
Den Import in Excel hatte ich auch schon versucht, leider ohne Erfolg. In der betreffenden Spalte stehen Zeichen, die in dem DOS-Programm eine Grafik darstellen. Das bringt den Assistenten so durcheinander, dass er an dieser Stelle mehrere neue Zeilen in die Exceltabelle einfügt und diese Zeichen nicht als eigenständige Spalte erkennt, die man beim Import übergehen könnte.
Nochmals Danke !!!
Grüße
Burkhard
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Powershell - In Textdatei suchen und ersetzen (5)

Frage von Raaja89 zum Thema Batch & Shell ...

VB for Applications
gelöst VBScript: Hexwert durch Zeichen (String) ersetzen (12)

Frage von Gurkenhobel zum Thema VB for Applications ...

Batch & Shell
gelöst In txt file an bestimmter Position zeichen ersetzen, Ideen ? (7)

Frage von buliwyf zum Thema Batch & Shell ...

Batch & Shell
gelöst Per Skript Ordner überwachen und Textdateien editieren und verschieben (4)

Frage von ThorstenL zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Windows Update
WSUS 4 (Server 2012 R2) - Windows 10 Updates nicht möglich (12)

Frage von c0d3.r3d zum Thema Windows Update ...

Windows Userverwaltung
gelöst Administrator hat alle Rechte verloren (10)

Frage von mrdead zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
Gebäude mit WLAN ausstatten (8)

Frage von udobec zum Thema LAN, WAN, Wireless ...