Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.
textFile = "C:\temp\04test.txt" saveTo = "C:\temp\" writeTo = "" headingPattern = "(GROUP*)" dim fso,fileFrom,regex set fso = CreateObject("Scripting.FileSystemObject") set fileFrom = fso.OpenTextFile(textFile) set regex = new RegExp with regex .Pattern = headingPattern .IgnoreCase = false .Global = True end with while fileFrom.AtEndOfStream <> true line = fileFrom.ReadLine set matches = regex.Execute(line) if matches.Count > 0 then writeTo = saveTo & matches(0).SubMatches(0) & ".txt" set fileTo = fso.CreateTextFile(writeTo) else fileTo.WriteLine(line) end if wend set fileFrom = nothing set fso = nothing set regex = nothing
|Adjustment to display words in the center of the cell.||2||52|
|"J" column have the (Q) original color on top of row given color when being refresh.||30||42|
|Create Powershell code with Powershell (or Excel Macro) for a DSC configuration||7||47|
|Powershell script to pull Info from all server within a domain||4||63|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!