Søg og erstat - Hvorfor virker dette ikke ?
Hejsa !Nogen der har en ide om, hvorfor dette ikke virker (bruger IE6) Der sker intet når jeg klikker Replace
Og et tillægsspørgsmål:
E der nogen der ved hvordan jeg via javascript kalder Søg funktionen (Find på denne side - CTRL+B). Jeg vil undgå at bruge MS Editor controllen.
<html>
<body>
<script language="vbscript">
function Query()
Query = msgbox("Replace?", vbYesNoCancel, "Search & Replace")
end function
</script>
<script language="JScript" for="Execute" event="onClick()">
var vbYes = 6 ;
var vbCancel = 2 ;
var Check = vbYes ;
var Range = document.body.createTextRange() ;
var SubRng = rangeFromText(document.all("FindString").value,0,0,Range) ;
while ((SubRng != null) & (Check != vbCancel))
{
SubRng.select() ;
Check = Query() ;
if (Check == vbYes) SubRng.text = document.all("ReplaceString").value ;
Range.start = SubRng.end
SubRng.collapse(0) ;
SubRng.select() ;
SubRng = rangeFromText(document.all("FindString").value, 0, 0,Range) ;
}
</script>
<p>*** Dette er søgeteksten ***</p>
<p>String to Find: <input type="text" size="20" id="FindString"></p>
<p>Replacement String: <input type="text" size="20" id="ReplaceString"></p>
<p><input type="button" id="Execute" value="Replace"></p>
</body>
</html>
