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

VBS - Wort in einer Textdatei aendern!

Frage Entwicklung VB for Applications

Mitglied: Butterblume

Butterblume (Level 1) - Jetzt verbinden

23.06.2008, aktualisiert 19:06 Uhr, 3946 Aufrufe, 1 Kommentar

Hallo, ich schreibe ein Script für ein Programm als Hilfe.

Ich stelle aber jetzt nicht ganze Aufgabe vor, sondern nur den Teil, den ich nicht verstehe.
Zuerst mal wird ein Backup von der Datei erstellt.
Dann die alte Datei verändert. Ich weiss nicht wie man jetzt dies tun kann.
das Eine: z.B. die Variable suchen (Farbe=Rot), jetzt wird "Farbe=" gesucht und "Rot" wird überschrieben.
Die Datei dann wieder abgespeichert und geschlossen.

LG, Kristy

01.
'Datei lesen. 
02.
  Dim strGelesen 
03.
  Const ForReading = 1, ForWriting = 2, ForAppending = 8 
04.
 
05.
  Set fso = CreateObject("Scripting.FileSystemObject") 
06.
  set File = fso.OpenTextFile("C:\Dokumente und Einstellungen\Kristina\Desktop\PROGRAMM SCHRIFTGENI\Test.txt", ForReading, false) 
07.
  strGelesen = File.ReadAll 
08.
  Set fso = nothing 
09.
 
10.
'Backup-Datei schreiben 
11.
  Dim f 
12.
  Set fso = CreateObject("Scripting.FileSystemObject") 
13.
  Set f = fso.OpenTextFile("C:\Dokumente und Einstellungen\Kristina\Desktop\PROGRAMM SCHRIFTGENI\Test_Backup.txt", ForAppending, True) 
14.
  f.Write (strGelesen) 
15.
 
16.
'Datei durchsuchen 
17.
  Dim SuchZeichen ="Test" 
18.
  MeinePosition = InStr(1, strGelesen, Suchzeichen)
Mitglied: bastla
23.06.2008 um 19:05 Uhr
Hallo Butterblume!

Das Stichwort hier wäre "Replace".
Zur Sicherungskopie: Mit "ForAppending" wird die Kopie an eine ev schon bestehende angefügt - willst Du das, oder solltest Du besser "ForWriting" oder, alternativ, "CreateTextFile" verwenden?

Außerdem ist ein mehrfaches Erzeugen des "fso" unnötig - Du kannst es einfach weiter verwenden (und musst es dann auch nicht durch ein Setzen auf "Nothing" zwischendurch "zerstören").

Letzte Anmerkung: Die Variablendeklaration mit "Dim" ist (auch) in VBS nicht unbedingt erforderlich - wenn Du aber deklarierst, dann konsequent, also auch zB "fso" oder "File" ...

Grüße
bastla
Bitte warten ..
Heiß diskutierte Inhalte
Exchange Server
gelöst Email in Exchange an 2ten Empfänger senden (18)

Frage von MultiStorm zum Thema Exchange Server ...

Weiterbildung
Gehaltsvorstellungen (14)

Frage von SYS64738 zum Thema Weiterbildung ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (13)

Frage von planetIT2016 zum Thema Windows Server ...

Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...