Leaderboard

You can also set the column width to match the header width instead of the text inside the columns by using $LVSCW_AUTOSIZE_USEHEADER which is equal to -2 in the $iMax_ColWidth parameter of the _ArrayDisplay function, or just include the ListViewConstants.au3 file in your script.

One of the many ways #include <Array.au3> Local $sProductID = "B01BGFBUC4" ; //Amazon product ID Local $sURL = "http://www.amazon.com/One-Persons-Craziness-R-T-Ojas-ebook/product-reviews/" & $sProductID & "/ref=cm_cr_dp_see_all_btm?ie=UTF8&showViewpoints=1&sortBy=bySubmissionDateDescending&filterByStar=two_star"; Local $sSource = BinaryToString(InetRead($sURL, 1)) Local $sReview = StringRegExp($sSource, '(?:<span class="a-size-base a-color-secondary review-date">)(.*?)(?:</span>)', 3) If Not @error And IsArray($sReview) Then _ArrayDisplay($sReview, "DEBUG") MsgBox(0, "Last review", $sReview[UBound($sReview) - 1]) EndIf

Download Ado.au3 UDF Open ADO_EXAMPLE.au3 Add and try this function: Func _Example_Tally() #cs https://www.autoitscript.com/forum/topic/184381-odbc-connection-for-accounting-software/ DRIVER={Tally ODBC Driver};SERVER=(local);PORT=9000; #ce Local $sDriver = 'Tally ODBC Driver' Local $sServer = '(local)' Local $sPort = '9000' Local $sConnectionString = 'DRIVER={' & $sDriver & '};SERVER=' & $sServer & ';PORT=' & $sPort & ';' _Example_1_RecordsetToConsole($sConnectionString, "SELECT Ledger.`$Name` FROM client.TallyUser.Ledger Ledger") _Example_2_RecordsetDisplay($sConnectionString, "SELECT Ledger.`$Name` FROM client.TallyUser.Ledger Ledger") _Example_3_ConnectionProperties($sConnectionString) EndFunc ;==>_Example_Tally mLipok

Thank You Very Much You Just Saved My Life I Have Signed Up To Say Thank You But I Think I Love Autoit So I will use my account to.

I'm such an idiot... so easy and i didn't see that... thanks. I improved it, if somebody needs it #NoTrayIcon #include <GUIConstants.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> Dim $iHGap = 5, $iVGap = 0, $iCount = 9, $iSize = 48, $iGap = 5, $icon[$iCount + 1], $oIcon[$iCount + 1] $TestGUI = GUICreate("TestGUI", 300, 300, -1, -1, -1, $WS_EX_TOOLWINDOW) GUICtrlCreateGroup("", $iHGap, $iVGap, Ceiling($iCount / 2) * $iSize + (2+(Ceiling($iCount/2)+1) * $iGap), 2 * $iSize + 3 * $iGap+8) For $a = 0 To $iCount $oIcon[$a] = 1 If $a < $iCount / 2 Then $icon[$a] = GUICtrlCreatePic("", $iHGap+$iGap + ($a * $iSize) + ($a * $iGap)+1, $iVGap+2 * $iGap+2, $iSize, $iSize, $BS_BITMAP) Else $b = $a - Ceiling($iCount / 2) $icon[$a] = GUICtrlCreatePic("", $iHGap+$iGap + ($b * $iSize) + ($b * $iGap)+1, $iVGap+3 * $iGap + $iSize+2, $iSize, $iSize, $BS_BITMAP) EndIf GUICtrlSetImage($icon[$a], @ScriptDir & "\icons\icon_" & $a & "b.bmp") Next GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit EndSelect $cursor = GUIGetCursorInfo() If Not @error Then For $a = 0 To $iCount If $cursor[4] = $icon[$a] And $oIcon[$a] = 1 Then $oIcon[$a] = 0 GUICtrlSetImage($icon[$a], @ScriptDir & "\icons\icon_" & $a & "a.bmp") ElseIf $cursor[4] <> $icon[$a] And $oIcon[$a] = 0 Then $oIcon[$a] = 1 GUICtrlSetImage($icon[$a], @ScriptDir & "\icons\icon_" & $a & "b.bmp") EndIf Next EndIf Sleep (1) WEnd Exit Thank you martin