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

Suchen und ersetzen in VBS

Frage Entwicklung VB for Applications

Mitglied: novedad

novedad (Level 1) - Jetzt verbinden

11.05.2010 um 11:44 Uhr, 4884 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Batch & Shell
gelöst Suchen ersetzen mit Sonderzeichen (2)

Frage von GNLen1 zum Thema Batch & Shell ...

Batch & Shell
gelöst Powershell - In Textdatei suchen und ersetzen (5)

Frage von Raaja89 zum Thema Batch & Shell ...

Batch & Shell
gelöst Suchen und Ersetzen mehrerer Suchbegriffe per Batch (4)

Frage von makroll10 zum Thema Batch & Shell ...

VB for Applications
Excel Makro zum Suchen von Spalten und exportieren in CSV (3)

Frage von Raptox zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (11)

Frage von DerFurrer zum Thema Windows Installation ...

Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Windows Server
Probleme mit Client Software Zugriff auf Windows Server 2012 (8)

Frage von it-kolli zum Thema Windows Server ...

Multimedia & Zubehör
gelöst Iphone 6 prob (8)

Frage von jensgebken zum Thema Multimedia & Zubehör ...