Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 12/20/2019 in all areas

  1. Here your Christmas gift early #include <Constants.au3> #include <Array.au3> Opt("MustDeclareVars", 1) _CheckService() Func _CheckService() Local $objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2") Local $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_Service WHERE State = "Running"') If Not IsObj($colItems) Then Exit MsgBox(0, "", "Not an object") If Not $colItems.count Then Exit MsgBox(0, "", "Service not found") Local $aService[$colItems.count][4], $i = 0 For $sItem In $colItems $aService[$i][0] = $sItem.Caption $aService[$i][1] = $sItem.PathName $aService[$i][2] = $sItem.ProcessId $aService[$i][3] = $sItem.Name $i += 1 Next _ArrayDisplay ($aService) EndFunc ;==>_CheckService HoHoHo !
    2 points
  2. pixelsearch

    CSV file editor

    Hi everybody New version 901m (Dec 18, 2019) 1 functionality added : import can also be done by drag & drop (thanks mikell for the idea) Download link at the end of 1st post
    2 points
  3. LAST VERSION - 1.1 18-May-12 Control Viewer (CV) is a replacement of AutoIt Window Info with a number of advantages. I tried to stick to the interface of the last, so you almost do not have to be retrained. During testing, I never managed to find any controls that could not be identified by CV (on the contrary, shows a lot of hidden controls, especially for the system windows). The all program settings are stored in the following registry key: HKEY_CURRENT_USERSoftwareY'sControl Viewer The main differences CV from AWI Shows the complete list of all existing controls for the window that are interested (visible, hidden and deleted controls are displayed with different colors that can be changed to any other).Dynamically changing information during search for the windows and their controls.Ability to quickly switch between controls in the list.Ability to show/hide any controls from the list (useful for the overlaping controls).Information for the Style and ExStyle parameters shown in the form of hexadecimal values​​, and as its flags.Added the PID and Path parameters in the Window tab and ability to quickly open a folder that containing the process file.Added the coordinate system relative to the selected control.Shows a color of the selected pixel in RGB and BGR formats.Shows an example fill of the selected color.Ability to select the text encoding (affects the Text parameter in the Control tab).The complete change the appearance of pop-up frame for the selected controls.Simple and convenient tool to get a screenshot of the part screen of interest for publication on the forum (Capture tab).Create a report in the clipboard or a text file for subsequent publication on the forum.Search all running AutoIt scripts and their windows in the system (AutoIt tab).User-friendly interface. Used shortcuts Ctrl+Alt+T - Enable/Disable "Always On Top" mode (also available from the menu). Ctrl+Alt+H - Enable/Disable highlight selected controls (also available from the menu). Ctrl+A - Select all text (works in any input field). Ctrl - Hold down when moving the mouse to scroll the screenshot (Capture tab). Shift - Hold down when stretching/compression of the contour frame for an equilateral resizing screenshots (Capture tab). DoubleClick (on the screenshot) - Save the image to a file (Capture tab). DoubleClick (on any list item) - Open a folder with the file of the process or AutoIt script (AutoIt tab). Del (on any list item) - Close process (AutoIt tab). F5 - Updating the list (AutoIt tab). If anyone have any questions or comments about CV, please post it in this thread. I will be glad to any feedback and suggestions. Files to download Binary (x86 and x64) Redirection to CV_bin.zip, 1.14 MB CV_bin.html Source Redirection to CV_source.zip, 691 KB CV_source.html
    1 point
  4. Nine

    Multiping Help.

    Replace $ipText = _GUICtrlListView_GetItemText($hWndListView, DllStructGetData($tInfo, "Index")) by $ipText = $IPlist[DllStructGetData($tInfo, "Index")][1]
    1 point
  5. Nine

    Multiping Help.

    Hard to say since you didn't make a runable script. Mostly it will depends on $IPlist array structure. But it is clearly doable in some way. Make a true runable script that we can test on our own, we will find you a solution for sure.
    1 point
  6. Although, I can do it manually on Win7. It seems not possible programmatically. You were right @Earthshine !
    1 point
  7. Column 4, OK. If the csv is comma separated (and some fields may be empty) then something like this should work $txt = StringRegExpReplace($String, '(?m)^([^,]*,){3}("File Location"|"Date Submitted").*(*SKIP)(*F)|^.*\R?', "")
    1 point
  8. Of course the pattern posted using .* doesn't fit a precise bill. If you have text fields in between (before the 4th) then it complicate matters significantly. One can't rely on comma separators (text may contain commas) nor double quotes (text may contain escaped double quotes. OTOH if your data always has a fixed number of fields, type and structure --somehow like the two lines above-- then it's possible to filter false positives out. Beware that by default, .* is greedy! Make that .*? to turn it lazy or use (?U) wisely.
    1 point
  9. ... or the usual way "match what you want to keep and fire the rest" $txt = StringRegExpReplace($String, '(?m)^.*("File Location"|"Date Submitted").*(*SKIP)(*F)|^.*\R?', "")
    1 point
  10. Look-behind needs to have a fixed number of characters in the first-level alternatives, so that won't work as is. '(?m)(^(?:(?!"File Location"|"Date Submitted").)*(?:\R|$))' should work (untested)
    1 point
  11. pixelsearch

    CSV file editor

    Hi everybody New version 901k (Dec 16, 2019) Full explanations and download links at the end of 1st post.
    1 point
  12. mikell

    Thousand Separator

    Yes, this is a typical exercise for regex I used it when learning the \G anchor $sInput = "1234567890.1234" $sOutput = StringRegExpReplace($sInput, '\G(\d+?)(?=(\d{3})+(\D|$))', '$1,') MsgBox(0, "", $sInput & @crlf & $sOutput)
    1 point
×
×
  • Create New...