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, 2441 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
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
Windows Server
gelöst Word 2010 : Absatz - Abstand per GPO ändern (3)

Frage von johanna-p zum Thema Windows Server ...

Exchange Server
Exchange 2013, Outlook 2010 Standard-Absendeadresse ändern (4)

Frage von ingoue zum Thema Exchange Server ...

E-Mail
gelöst GMail: Anzeige der Mailübersicht ändern (7)

Frage von honeybee zum Thema E-Mail ...

Exchange Server
Exchange 2013 - Primäre eMail Adresse ändern (7)

Frage von staybb zum Thema Exchange Server ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (13)

Frage von JayyyH zum Thema Switche und Hubs ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Backup
Clients als Server missbrauchen? (9)

Frage von 1410640014 zum Thema Backup ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...