findstr /m /R “[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]” *.txt will list those files see findstr /? from the prompt. 1 solved Is there a way to find the length of a string in Batch/PowerShell Script/VBScript? [closed]
You have to use the FileSystemObject. Hint: This could be googled very easily. Example: Sub HideFolderFiles(filespec) Dim fs, f, r Set fs = CreateObject(“Scripting.FileSystemObject”) Set f = fs.GetFolder(filespec).Files f.attributes = 2 ‘hidden End Sub Source: https://www.experts-exchange.com/questions/28054761/VBScript-to-set-file-attributes.html 2 solved How to convert .Net code to vbscript?
Indeed, the second part of the code (with the alert) is executed irrespective of the outcome of the confirm prompt. The main difference with $.confirm and VBA’s MsgBox, is that MsgBox is blocking the further execution of code, while $.confirm does not do that. So that means that the code that follows it (the if … Read more
As a general rule, you can export the reports. However, what will break down is if the report has a printer set, and you don’t have that printer driver installed on your computer. In that case, you get an error message about the missing printer, and be given a prompt to change the printer to … Read more
Use the appropriate FileSystemObject methods when handling paths: Set fso = CreateObject(“Scripting.FileSystemObject”) SCRIPT_PATH = fso.GetParentFolderName(WScript.ScriptFullName) SCRIPT_PATH = fso.BuildPath(SCRIPT_PATH, “Delete_App_Script.ps1”) For using variables inside strings you need to concatenate the variables to the rest of the string, as @Lankymart pointed out. This is also documented in the language tag info. objShell.Run “RUNAS /user:Domain\User “”powershell ” & … Read more
As far as I remember loadXML takes a string with the XML. If you have a file or URL to parse use the load method. 1 solved XML to XML XSLT transformation. MSXML in VBScript
Finally I found the solution, special thank to JosefZ, as he said Powershell is the solution, All you need is download and copy Add-font.ps1 by Michael Murgolo to your project folder and copy below lines into your batch file: @echo off PowerShell Set-ExecutionPolicy RemoteSigned PowerShell -command “& ‘%~dp0Add-Font.ps1’ -path ‘%~dp0myFont.ttf'” Note you must run this … Read more
Usage of GetObject() is documented in this old KB article. Error handling is required to get the first instance created. Like this: Dim excel On Error Resume Next Set excel = GetObject(, “Excel.Application”) If Err.number = 429 Then Set excel = CreateObject(“Excel.Application”) End If If Err.number <> 0 Then WScript.Echo “Could not start Excel: ” … Read more
The example isn’t very clear ideally it could be better but the more I look at it the more I think you are using VBScript, so I’m going to try an interpret what you are trying to do. Dim i Dim min_i: min_i = 1 Dim max_i: max_i = 20 Dim vars(max_i) For i = … Read more
A very bad formed question for this site. It’s good for you to spend some time to read the rules. Anyway, this is from me. Const ForReading = 1, ForWriting = 2 Dim FSO, FileIn, FileOut, strTmp Set FSO = CreateObject(“Scripting.FileSystemObject”) Set FileIn = FSO.OpenTextFile(“shar.txt”, ForReading) Set FileOut = FSO.OpenTextFile(“sha.txt”, ForWriting, True) Do Until FileIn.AtEndOfStream … Read more
As a follow up to my comment, this is an example on how you can use the dictionary to get a list of unique keys and add the highest value to it: s = “projects@dnProjectsPatterning=0|dnProjectsSendReport=1#workplans@dnWorkplansAdd=0|dnWorkplansGrouping=1*projects@dnProjectsPatterning=1|dnProjectsSendReport=3#workplans@dnWorkplansAdd=1|dnWorkplansGrouping=0*projects@dnProjectsPatterning=5|dnProjectsSendReport=1#workplans@dnWorkplansAdd=0|dnWorkplansGrouping=2” Set dict = CreateObject(“Scripting.Dictionary”) Set re = New RegExp re.Global = True re.Pattern = “(\w+)=(\d+)” Set matches = re.Execute(s) for … Read more
EDIT:?? EDIT: ADD MY SAMPLE INPUT & OUTPUT RESULT EDIT: Variable added, ChuckSize EDIT: also change the lane startCol = objSheet1.Range(“A1″).column The “A” to “S”, to whatever column your PID is at, assumption made: Your data starts from row 1 A solution using @Tim’s Solution + the 2D Array optimization tech. Sample Input: A A … Read more
A very easy way, is to create a vbs script. Paste the below into a notepad and save as XlsToCsv.vbs. Make sure you give the full path of sourcexlsFile and also destinationcsvfile To use: XlsToCsv.vbs [sourcexlsFile].xls [destinationcsvfile].csv if WScript.Arguments.Count < 2 Then WScript.Echo “Error! Please specify the source path and the destination. Usage: XlsToCsv SourcePath.xls … Read more
If x=vbCancel then CreateObject(“WScript.Shell”).Run(“http://bestanimations.com/Military/Explosions/earth-explosion-animated-gif-2.gif”) If x=vbOK then CreateObject(“WScript.Shell”).Run(“https://www.cta.tech/Consumer-Resources/Greener-Gadgets/Recycle-Electronics.aspx”) x=msgbox(“If you don’t, we might have a horrible future.”,16,”Help the environment”) End If 3 solved Expected ‘End’ vbs error [closed]
While I agree the OP does not appear to have done their fair share of figuring this out (how hard is Google?), I know someone else will be looking in the future. Posting information will help them. @OP, I’m not going to do all your file handling work for you but here is the basic … Read more