aa11223344 Posted April 18, 2017 Share Posted April 18, 2017 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 More sharing options...
requinix Posted April 18, 2017 Share Posted April 18, 2017 That looks like a Luhn check. And next time don't use a title like "PLEASE HELP". It's stupid and meaningless. Link to comment Share on other sites More sharing options...
conoroco Posted July 15, 2017 Share Posted July 15, 2017 I know this thread's a bit old, but do you really have to use VBScript? Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.