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

VBScript Eine Zeile ersetzten!

Frage Entwicklung VB for Applications

Mitglied: Butterblume

Butterblume (Level 1) - Jetzt verbinden

21.07.2008, aktualisiert 24.07.2008, 5415 Aufrufe, 4 Kommentare

Hallo Miteinander!

Ich schreibe einen Script, der eine Textdatei nach einem Wort durchsucht.
Dies macht er Zeilenweise mit ReadLine und SkipLine. Jetzt brauche ich aber noch Anzahl Zeilen, habe im Google gesucht und nichts gefunden.
Kennt ihr eine Methode dafür?
Und dann möchte ich die Zeile ersetzten mit Replace?? Geht das?
Welche Funktion von FSO brauche ich, dass ich dies tun kann? Ich kenne nur das Text am Ende der Datei hinzufügen aber nicht im Text verändern.

Kann mir vielleicht jemand auf die Sprünge helfen? Muss nicht der ganze Code sein aber vielleicht Befehle, die ich benötige?
Wäre sehr hilfreich, ich bin nur Anfänger von VBS.

Danke für die Hilfe.

Gruss, Kristy.
Mitglied: tacker
21.07.2008 um 10:56 Uhr
salü butterblume

Jetzt brauche ich aber noch Anzahl Zeilen, habe im Google gesucht und nichts gefunden.

verwende hierzu einfach eine variable als zähler, welche du nach jeder gelesenen zeile um eins erhöhst!

Und dann möchte ich die Zeile ersetzten mit Replace?? Geht das?

hier würde sich anbieten zu beginn des scripts die ganze textdatei in eine variable einzulesen (ReadAll()) und danach wenn du die zeile weisst, welche dein suchwort beinhaltet, diese in der zuvor eingelesenen variable zu ersetzen! Danach kannst du die alte textdatei mit dieser variablen überschreiben!

gruss tacker
Bitte warten ..
Mitglied: Butterblume
21.07.2008 um 11:33 Uhr
Ich habe inzwischen einen Script, der die Zeile löscht.
Kann ich den gleichen Script zum ersetzten benutzen? Wie sieht er aus?

01.
Set MyFiles = CreateObject("Scripting.FileSystemObject") 
02.
Const ForReading = 1, ForWriting = 2 
03.
 
04.
varDatei="C:\Dokumente und Einstellungen\Kristina\Desktop\PROGRAMM SCHRIFTGENI\NEU!!!\Test.txt" 
05.
varTmpDatei="C:\Dokumente und Einstellungen\Kristina\Desktop\PROGRAMM SCHRIFTGENI\NEU!!!\TestOut.txt" 
06.
Set fin = MyFiles.OpenTextFile(varDatei, ForReading) 
07.
Set fout = MyFiles.OpenTextFile(varTmpDatei, ForWriting, True) 
08.
 
09.
strSearch = "TEST=" 
10.
 
11.
do while not fin.AtEndOfStream 
12.
       strline = fin.readLine() 
13.
       if instr(1,strline, strSearch) = 0 then		 
14.
               'Zu entfernende Zeile nicht gefunden, also Zeile ausgeben 
15.
               fout.writeline strline 
16.
       end if 
17.
loop
Gruss, Kristy


@tacker
Könnte ich den Teil des Codes haben?
Ich weiss nicht so genau wie das geht.
Bitte warten ..
Mitglied: bastla
21.07.2008 um 11:40 Uhr
Hallo Butterblume!

Du müsstest eigentlich nur Deinen Code ab Zeile 16 um ein "Else" ergänzen, also etwa
01.
Else 
02.
    fout.WriteLine strNeueZeile
Grüße
bastla
Bitte warten ..
Mitglied: Butterblume
24.07.2008 um 10:15 Uhr
Danke, das hat tiptop funktioniert
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBscript Zeilen verbinden und rechnen
gelöst Frage von TurboDVB for Applications7 Kommentare

Hallo liebe Mitglieder, Ich habe ein kleines Problem. Ich würde gerne die Zeilen mit den Namen "Werte" mit den ...

VB for Applications
VbScript: ADODB.Stream: Neue Zeile einfügen
gelöst Frage von BirdyBVB for Applications2 Kommentare

Hallo zusammen, ich habe hier ein vb-skript, welches einen ADODB.Stream erzeugt und diesen mit Text füllt. Ich würde gerne ...

VB for Applications
Vbscript bestimmte Zeile ungeachtet der Nummerierung löschen
gelöst Frage von aletriVB for Applications4 Kommentare

Guten Tag an alle Mit folgendem Script lässt sich eine bestimmte Zeile nämlich: "SimObjectPaths.6=Addon Scenery\Europe\Italy\Ancona\simobjects" löschen. Die "SimObjectPaths.X=Addon" ist ...

VB for Applications
Per Vbscript bestimmte Zeile ungeachtet der Nummerierung prüfen
gelöst Frage von aletriVB for Applications7 Kommentare

Guten Morgen an alle Der folgende Vbscript fügt einer Texdatei eine bestimmte Zeile ein, das klappt soweit Nun sollte ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Necur-Botnet soll Erpressungstrojaner Scarab massenhaft verbreiten

Information von BassFishFox vor 6 StundenErkennung und -Abwehr

12,5 Millionen Spam-Mails aus einem Bot-Netz mit 6 Millionen Computern? Eigentlich eine schwache Leistung. Die Erpresser setzen dabei auf ...

Microsoft

Nadeldrucker-Problem unter Windows - Microsoft liefert Updates

Information von BassFishFox vor 6 StundenMicrosoft

Hat ja nicht lange gedauert. Nachdem die November-Updates für Windows 7, 8.1 und 10 zahlreiche Nadeldrucker lahmgelegt hatten, stellt ...

Linux

Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde

Information von Frank vor 14 StundenLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 1 TagBatch & Shell9 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Heiß diskutierte Inhalte
Windows Server
Kann man im KMS nachschauen , wieviele Clients den Key in Anspruch genommen haben
gelöst Frage von rainergugusWindows Server15 Kommentare

Hallo, wir haben einen KMS Windows 10 Key. Dieser ist ja W7 kompatibel. Aber unser Windows 7 Pool registriert ...

Linux
Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde
Information von FrankLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Router & Routing
Zwei Netzwerke erstellen
Frage von bunteblumeRouter & Routing14 Kommentare

Hallo Zusammen, Ich möchte gerne ein backup von einem bestimmten Folder welcher auf dem Server regelmässig synchronisiert wird auf ...

Off Topic
Fachkräftemangel in Deutschland? - Talentschmiede schreibt alle 2 Tage die gleichen Stellen aus
Frage von Penny.CilinOff Topic12 Kommentare

Hallo, haben wir in Deutschland Fachkräftemangel? Die Talentschmiede schreibt gefühlt alle zwei Tage dieselben Stellen aus. Und das schon ...