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

In textfile Position ändern

Frage Entwicklung

Mitglied: mhilfiker

mhilfiker (Level 1) - Jetzt verbinden

01.12.2009 um 14:48 Uhr, 2442 Aufrufe, 3 Kommentare

Hi Zusammen,

Also müsste in textdateien Positionen ändern per einem Script.

habe ein file das text enthält, und da müsste ich in jeder zeile, Position 41+42 löschen. Wie danach nach position 50 2 x ne 0 einfügen.
Hab bis jetzt noch nix richtiges gefunden, vieleicht en VB Script?

Für Hilfe wäre ich Dankbar.

Gruss
Markus
Mitglied: bastla
01.12.2009 um 15:08 Uhr
Hallo mhilfiker und willkommen im Forum!

Als VBScript (ungetestet) etwa so:
01.
Datei = "D:\Test.txt" 
02.
Set fso = CreateObject("Scripting.FileSystemObject") 
03.
T = Split(fso.OpenTextFile(Datei).ReadAll, vbCrLf) 
04.
For i = 0 To UBound(T) 
05.
    T(i) = Left(T(i), 40) & Mid(T(i), 43, 8) & "00" & Mid(T(i), 51) 
06.
Next 
07.
fso.CreateTextFile(Datei, True).Write Join(T, vbCrLf)
Die Ersetzung erfolgt hier "in der Datei", es wird also keine Sicherungskopie erstellt.

Grüße
bastla
Bitte warten ..
Mitglied: mhilfiker
01.12.2009 um 17:10 Uhr
Hi Bastla,

Vielen Dank, das script funktioniert soweit, jetzt ist allerdings das problem aufgetaucht, das das file auf der anfangszeile nur wenige zeile hat, um das format zu erkennen und auf der letzten auch nochmals ne kürzere... Natürlich machts mir jetzt die 2 00 jetzt auch auf die 1 und letzte zeile obwohl sie kürzer sind und nicht verändert werden müssen. Gibets dafür auch ne Lösung?

Kannst du mir sagen, welcher teil des codes für das löschen zuständig ist?

Besten Dank

Grüsse
Markus
Bitte warten ..
Mitglied: bastla
01.12.2009 um 17:45 Uhr
Hallo mhilfiker!
Natürlich machts mir jetzt die 2 00 jetzt auch auf die 1 und letzte zeile obwohl sie kürzer sind und nicht verändert werden müssen. Gibets dafür auch ne Lösung?
Ändere die Zeile 5 auf
If Len(T(i)) > 50 Then T(i) = Left(T(i), 40) & Mid(T(i), 43, 8) & "00" & Mid(T(i), 51)
Kannst du mir sagen, welcher teil des codes für das löschen zuständig ist?
Eigentlich wird nicht "gelöscht", sondern die Zeile aus den folgenden Bestandteilen neu zusammengebaut: Die ersten 40 Zeichen, die 8 Zeichen ab 43, die beiden Nullen und den Rest ab Zeichen 51 bis zum Ende ...

Grüße
bastla
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Windows 10
Dell M6700 Windows 10 TPM Besitzerkennwort ändern

Frage von Torsten2010 zum Thema Windows 10 ...

VB for Applications
Anpassungsdatei verschiedene Parameter (Hostname, SQL, Registry) ändern (3)

Frage von MiMa89 zum Thema VB for Applications ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Hardware
Laptop ins Salzwasser gefallen (18)

Frage von Marcel94 zum Thema Hardware ...

Hardware
Lenovo Yoga 500 über angeschlossene USB Tastatur booten (13)

Frage von thomasreischer zum Thema Hardware ...

Switche und Hubs
LAG zwischen Cisco SG300 und Dlink DGS1100 herstellen - wie? (13)

Frage von White-Rabbit2 zum Thema Switche und Hubs ...

CPU, RAM, Mainboards
Hardware Fragen (12)

Frage von xaver-2 zum Thema CPU, RAM, Mainboards ...