Fine tuning vbscript -


i writing vbscript pass date/time value (especially before 2:00 last day value). there fine tuning instead of pass value batch , use batch1 call vbscript , batch2 (created in vbscript)? lot

dim datemonth, dateday, dateyear, dateyy, datemmm, mm, pdateday 'check time if hour(now) < 2 'before 2am, count last working day     datemonth   = month(dateadd("d",-1,now))     dateday     = day(dateadd("d",-1,now))     dateyear    = year(dateadd("d",-1,now))     dateyy      = right(year(dateadd("d",-1,now)),2)     timehh      = hour(now)     timemm      = minute(now) else     datemonth   = month(now)     dateday     = day(now)     dateyear    = year(now)     dateyy      = right(year(now),2)     timehh      = hour(now)     timemm      = minute(now)    end if  mm = array("","jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec") datemmm = mm(datemonth) if datemonth < 10       datemonth = "0" & datemonth end if if dateday < 10     dateday = "0" & dateday end if if timehh < 10      timehh = "0" & timehh end if if timemm < 10      timemm = "0" & timemm end if   set objfso=createobject("scripting.filesystemobject")  ' create log file dim ofso, otxtfile, curdir set ofso = createobject("scripting.filesystemobject")        curdir = ofso.getabsolutepathname(".") strfile = "\datetime.bat" if ofso.fileexists(curdir & strfile)         ofso.deletefile curdir & strfile end if  strvalue = "set date_mmdd=" & datemonth & dateday strvalue = strvalue & vbcrlf & "set date_mm=" & datemonth strvalue = strvalue & vbcrlf & "set date_mmm=" & datemmm strvalue = strvalue & vbcrlf & "set date_dd=" & dateday strvalue = strvalue & vbcrlf & "set date_hhmm=" & timehh & timemm strvalue = strvalue & vbcrlf & "set time_hh=" & timehh strvalue = strvalue & vbcrlf & "set time_mm=" & timemm   set otxtfile = ofso.createtextfile(curdir & strfile)  otxtfile.writeline(strvalue)  wscript.echo strvalue  set otxtfile = nothing set ofso = nothing

i'm not sure if want run batch script directly vbscript, in case option available, don't need write generate file @ - can pass in date , other info using command-line parameters.

in example below, simplified date code , passed fields batch file, echo them vbscript show in message box. can adapt needs.

test.vbs:

option explicit  dim rundate : rundate = now() if hour(rundate) < 2 rundate = dateadd("d", -1, rundate)  dim runyear : runyear = year(rundate) dim runmonth : runmonth = monthname(month(rundate), true) dim runday : runday = day(rundate) ' etc...  dim parameters : parameters = join(array(runyear, runmonth, runday), " ")  ' see https://stackoverflow.com/a/45284140/534406 below code  const wshrunning = 0 const wshfinished = 1 const wshfailed = 2  dim shell : set shell = createobject("wscript.shell") dim exec : set exec = shell.exec("test.bat " & parameters)  while exec.status = wshrunning     wscript.sleep 50 wend  dim output  if exec.status = wshfailed     output = exec.stderr.readall else     output = exec.stdout.readall end if  wscript.echo output

test.bat

@echo off set year=%1 set month=%2 set day=%3 echo year %year% month %month% day %day%

output (for today, after 2am):

year 2017 month aug day 15

Comments

Post a Comment

Popular posts from this blog

android - InAppBilling registering BroadcastReceiver in AndroidManifest -

i'm implementing inapp billing in android app. works well, however, i'm trying decouple broadcast receiver activity manifest. suggestion in android's trivialdrive sample: // important: dynamically register broadcast messages updated purchases. // register receiver here instead of <receiver> in manifest // because call getpurchases() @ startup, therefore can ignore // broadcasts sent while app isn't running. // note: registering listener in activity bad idea, done here // because sample. regardless, receiver must registered after // iabhelper setup, before first call getpurchases(). currently there's class extends broadcastreceiver : public class iabbroadcastreceiver extends broadcastreceiver { /** * intent action receiver should filter for. */ public static final string action = "com.android.vending.billing.purchases_updated"; private final iabbroadcastlistener mlistener; public iabbroadcastreceiver(iabbroadcastlistener listener) { m...
Read more

python Tkinter Capturing keyboard events save as one single string -

is possible store keyboard events 1 string? code below stores 1 char , prints it. card reader or bar code reader, contains collection of character/ string not 1 character @ time. goal save char pressed text variable. from tkinter import * root = tk() def key(event): text= event.char text+= event.char print ("pressed", text) def callback(event): frame.focus_set() print ("clicked at", event.x, event.y) frame = frame(root, width=100, height=100) frame.bind("<key>", key) frame.bind("<button-1>", callback) frame.pack() root.mainloop() currently, creating text variable , everytime key() function gets called, , text stores last character typed. you can define text module level variable , , use module level text inside key function - text = '' def key(event): global text text+= event.char print("pressed", text)
Read more

sql server - Why does Linq-to-SQL add unnecessary COUNT()? -

here tables: create table customer ( cid int primary key, name varchar(32) ) create table ord ( oid int primary key, cid int foreign key references customer, address varchar(20) ) here's linq-to-sql statement: var aaa = c in db.customer select new { c, o = c.ord.tolist() }; and here's inexplicable query generated linq-to-sql: select [t0].[cid] [cid], [t0].[name] [name], [t1].[oid] [oid], [t1].[cid] [cid2], [t1].[address] [address], (select count(*) [dbo].[ord] [t2] [t2].[cid] = [t0].[cid]) [value] [dbo].[customer] [t0] left outer join [dbo].[ord] [t1] on [t1].[cid] = [t0].[cid] order [t0].[cid], [t1].[oid] i want understand how rid of count(*) part. it's entirely uncalled for! linq needs count(*) in order determine number of entries returned o = c.ord.tolist() .
Read more