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

Suchen und ersetzen in VBS

Frage Entwicklung VB for Applications

Mitglied: novedad

novedad (Level 1) - Jetzt verbinden

11.05.2010 um 11:44 Uhr, 4926 Aufrufe, 3 Kommentare

Hallo, bin neu hier und dies ist mein erster Beitrag hier.
(tut mit leid wenn ich etwas kompliziert schreibe)

hab mir ein vb-script gebastelt das in einem html-code zwei sachen ersetzen soll, doch so richtig funktioniert das noch nicht.

am besten ich poste erst mal den (relevanten) teil meines scriptes:

01.
  
02.
set fso = createobject("scripting.filesystemobject") 
03.
 
04.
set file = fso.opentextfile("code.txt", 1) 
05.
 
06.
line = file.readline() 
07.
 
08.
line = replace(line, "LINK", "http://www.google.de", 1, 1) 
09.
 
10.
line = replace(line, "BUTTON", "Startseite", 1, 1) 
11.
 
12.
file.close() 
13.
 
14.
set file = fso.createtextfile("code.txt", true) 
15.
 
16.
file.writeline(line)



und den (relevanten) html-code

01.
<SCRIPT LANGUAGE='JAVASCRIPT' TYPE='TEXT/JAVASCRIPT'> 
02.
<!-- Popup --> 
03.
<!-- 
04.
var win=null; 
05.
function NewWindow(mypage,myname,w,h,pos,infocus){ 
06.
if(pos=="random"){myleft=(screen.width)?Math.floor(Math.random()*(screen.width-w)):100;mytop=(screen.height)?Math.floor(Math.random()*((screen.height-h)-75)):100;} 
07.
if(pos=="center"){myleft=(screen.width)?(screen.width-w)/2:100;mytop=(screen.height)?(screen.height-h)/2:100;} 
08.
else if((pos!='center' && pos!="random") || pos==null){myleft=0;mytop=20} 
09.
settings="width=" + w + ",height=" + h + ",top=" + mytop + ",left=" + myleft + ",scrollbars=yes,location=yes,directories=yes,status=yes,menubar=yes,toolbar=yes,resizable=yes";win=window.open(mypage,myname,settings); 
10.
win.focus();} 
11.
// --> 
12.
</script> 
13.
<input type="button" name="B1" value="BUTTON" 
14.
onClick="NewWindow('LINK','mypopup','1024','768','center','front');">
wenn ich mein script aber nun auf den html-code loslasse schreibt er mir nur die erste Zeile meines html-codes neu und den rest lässt
er weg

das sieht dann so aus:

01.
<SCRIPT LANGUAGE='JAVASCRIPT' TYPE='TEXT/JAVASCRIPT'>
wie bekomme ich es nun hin das der Text durchsucht wird und die beiden Sachen (Button und Link) durch die von mir gewünschten Sachen ersetzt werden?

Ich freue mich auf eure Hilfe

Gruß novedad
Mitglied: AndreasHoster
11.05.2010 um 11:59 Uhr
Na ja, Dein Code liest genau EINE Zeile ein.
Mehr nicht.
Und schreibt auch nur genau diese eine Zeile.

Wieso sollte dann mehr im Ergebnis stehen?
Einfachste Lösung wäre:
01.
set fso = createobject("scripting.filesystemobject") 
02.
set file = fso.opentextfile("code.txt", 1) 
03.
line = file.readAll() 
04.
line = replace(line, "LINK", "http://www.google.de", 1, 1) 
05.
line = replace(line, "BUTTON", "Startseite", 1, 1) 
06.
file.close 
07.
set file = fso.createtextfile("code.txt", true) 
08.
file.write(line) 
09.
file.close
Wobei der Speicherverbrauch bei ReadAll, wenn die Datei sehr groß ist, exorbitant wird.
Ansonsten sollte man die Datei Zeile für Zeile einlesen:
01.
set fso = createobject("scripting.filesystemobject") 
02.
set file = fso.opentextfile("code.txt", 1) 
03.
while not  file.AtEndOfStream 
04.
   line = file.readline() 
05.
wend  
06.
file.close
Und bei der Ausgabe natürlich Zeile für Zeile schreiben.
Bitte warten ..
Mitglied: LotPings
11.05.2010 um 12:14 Uhr
Wobei,wenn mehrere Ersetzungen möglich sind, im Replace die letzte 1 (=Anzahl) wegzulassen oder durch eine -1 zu ersetzen wäre.

Gruß
LotPings
Bitte warten ..
Mitglied: novedad
12.05.2010 um 20:55 Uhr
danke!

genau das was ich gesucht habe

Gruß novedad
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBS - Suchen und Ersetzen in Word 2010 in Kopfzeile
gelöst Frage von JuckieVB for Applications7 Kommentare

Hallo zusammen, ich stehe bei einem VBS ein wenig auf dem Schlauch. Ich habe ein VBS, welches in Verzeichnissen ...

VB for Applications
VBS Suchen und Ersetzen bei UTF8 XML Dateien funktioniert nicht
gelöst Frage von NexxudusVB for Applications7 Kommentare

Hallo zusammen, ich verzweifel gerade an einer - eigentlich total primitiven- Aufgabe. Dazu muss ich sagen, dass ich mich ...

Linux Tools
Bash: suchen und ersetzen
Frage von SIPSIPLinux Tools14 Kommentare

Hallo zusammen Möchte aus einer riesigen HTML Datei folgenden Strings ersetzen: ^M\ Nun habe ich dieses kleine Script erstellt, ...

Windows Tools
Suche Programm zum dateien suchen und Ersetzen mit Wildcat Suche
gelöst Frage von sfera-haizaWindows Tools5 Kommentare

Grüßt euch, ich nutze zzT. das Programm InfoRapid Suchen & Ersetzen um HTML / PHP Dateien zu durchsuchen bzw. ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 2 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 8 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 8 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 20 StundenInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless19 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Windows Server
Remotesteuerung der Sitzung (Kennung XX) fehlgeschlagen
gelöst Frage von Stefan91Windows Server14 Kommentare

Hallo Zusammen, seit kurzem bekomme ich oben genannte Fehlermeldung, wenn ich versuche eine Remotesitzung über den Taskmanager fernzusteuern (Rechtsklick ...