løkke i vb script
Håber der er nogle vb script eksperter derude som kan hjælpe mig med et problem!!!Beskrivelse:
Jeg har en java web-app. som på en side benytter et vb-script til at printe til en brother label printer. Jeg har et script som jeg har fået fra brother, og det har jeg nu behov for at ændre i... Jeg ved absolut IKKE noget om vb-script...
på min html side har jeg følgende....
.
.
.
.
<SCRIPT LANGUAGE="VBScript">
<!--
' Data Folder
Const sDataFolder = "C:\CI utility\"
'*******************************************************************
' Replaces Image, Prints or Preview Label
'*******************************************************************
Sub DoPrint(strExport)
Dim TheForm
Set TheForm = Document.ValidForm
Set ObjDoc = CreateObject("BrssCom.Document")
bRet = ObjDoc.Open(sDataFolder & "IC_NOBC_12mm.lbl")
If (bRet <> False) Then
nIndex = ObjDoc.GetTextIndex("id")
ObjDoc.SetText nIndex, TheForm.con_id.Value
nIndex2 = ObjDoc.GetTextIndex("location")
ObjDoc.SetText nIndex2, TheForm.con_div.Value
ObjDoc.SetBarcodeData 0, TheForm.barcd.Value
If (strExport = "") Then
ObjDoc.DoPrint 0, "0" 'Print
Else
strExport = sDataFolder & strExport
ObjDoc.Export 2, strExport, 180 'Export
window.navigate strExport
End If
End If
Set ObjDoc = Nothing
window.close
End Sub
-->
</SCRIPT>
</head>
<body onload='DoPrint ""'>
<center>
<form name="ValidForm">
<INPUT type="hidden" VALUE="0010621" NAME="con_id">
<INPUT type="hidden" VALUE="P: 11, 36, 1 T:123 gram" NAME="con_div">
<INPUT type="hidden" VALUE="00106210001152" NAME="barcd">
<INPUT TYPE="button" VALUE=" Print Label " onClick='DoPrint ""'>
</form>
<h2>IF THIS PAGE DOES NOT CLOSE AUTOMATICALLY YOU DO NOT HAVE ACCESS TO THE LABEL PRINT FEATURE!!!</h2>
</center>
</body>
</html>
-----------
Dette virker til udprint af 1 label.
ØNSKEDE ÆNDRING:
Jeg ønsker nu at kunne printe et vilkårligt antal, det vil sige at jeg skal have indført en løkke som kan løbe igennem og printe ud fra en række data som jeg generere dynamisk...
Løsning med kode ønskes...
