Jump to content

PLEASE HELP


aa11223344
 Share

Recommended Posts

hello brothers,
I have this VBScript program:
Set WSHShell = Wscript.CreateObject("WScript.Shell")       
Set FSO = Wscript.CreateObject("Scripting.FileSystemObject") 
Set EnvVar = wshShell.Environment("Process")
tBestand= EnvVar("USERPROFILE") & "\Desktop\Items Numbers.txt"
Set Bestand = fso.createtextfile(tBestand,2)
For x = 1048639472 To 1048640474
Bestand.WriteLine("Item Number is=" & (x))
Next
Bestand.close
WScript.quit
The Output is: (about 1002 lines).
Item Number is=1048639472
.
.
.
Item Number is=1048640474
My question is I don't want the output in sequence, I want the output like this function in php language (I found it online):
function check($id){
$id = trim($id);
if(!is_numeric($id)) return false;
if(strlen($id) !== 10) return false;
$type = substr ( $id, 0, 1 );
if($type != 2 && $type != 1 ) return false;
for( $i = 0 ; $i<10 ; $i++ ) {
//echo "  $id <b>"."</b> -";
if ( $i % 2 == 0){
$ZFOdd = str_pad ( ( substr($id, $i, 1) * 2 ), 2, "0", STR_PAD_LEFT );
$sum += substr ( $ZFOdd, 0, 1 ) + substr ( $ZFOdd, 1, 1 );
}else{
$sum += substr ( $id, $i, 1 );
}
}
//echo $sum;
return $sum%10 ? false : $type;
is it possible to convert this code php language to vbscript, because i want to add it to my above vbscript program.
thanks in advance.
 

 

Link to comment
Share on other sites

  • 2 months later...
This thread is more than a year old.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.