Leaderboard

The following script works fine here. #include <Excel Rewrite.au3> ;Global $selector = """quality"",""st"",""rainbow"",""carryout"",""auto"",""surgery"",""public"",""fertiliser"",""Fertilisers"",""ifertilisersl"",""rendezvous"",""remember"",""that"",""precast"",""barefoot"",""mail"",""scaffolding"",""safe"",""access"",""salvation"",""army"",""funeral"",""directors"",""director"",""seahorse"",""simply"",""affordable"",""stich"",""time"",""dressmaking"",""alterations"",""hospital"",""by"",""jewellers"",""post"",""sweet"",""sensation"",""trophies"",""engraving"",""protection"",""produce"",""public"",""relations"",""made"",""fun"",""auctions"",""auction"",""kiltmakers"",""kiltmaker"",""linen"",""chippy"",""timber"",""tidy"",""tangles"",""past"",""dealer"",""trading"",""crafts"",""craft"",""naval"",""activities"",""US"",""Uncle"",""Diner"",""Removals"",""Volunteer"",""Zoo"",""Wavelength"",""Wavelengths"",""Friends"",""hairdressing"",""theatreclub"",""daynursery"",""MUSLC"",""superstore"",""colleges"",""AALCO"",""AARDVARK"",""ABACUS"",""ABB"",""ABBOTSWELL"",""ABBOTTPUBLIC"",""ABC"",""ABCON"",""ABDN"",""ABERCARE"",""ABERDEE"",""ABERDEEN"",""ABERDEENSHIRE"",""ABERFLORA"",""ABERGELDIE"",""ABERGLEN"",""ABERLOUR"",""ABERMED"",""ABERNE"",""ABERPEST"",""ABERSOL"",""ABERT"",""ABSCOT"",""ABSOFT"",""ABSPEK"",""ABSURE"",""ABTEX"",""ABTRUST"",""ACADEMY"",""ACCESS"",""ACCESSORIES"",""ACCOMMODATION"",""ACCORD"",""ACCOUNTANCY"",""ACCURAY"",""ACE"",""ACTION"",""ADAPT"",""ADEPT"",""ADMIN"",""ADMIRAL"",""ADS"",""ADULT"",""ADVANCE"",""ADVANCED"",""ADVANT"",""ADVANTAGE"",""ADVICE"",""AEA"",""AFFAIR"",""AFOS"",""AGA"",""AGE"",""AGENCY"",""AGIP"",""AGRI"",""AGRICULTURAL"",""AGRICULTURE"",""AHT"",""AI"",""AIDS"",""AIR"",""AIRBORNE"",""AIRFAIR"",""AIRLINES"",""AIRNAUTIC"",""AIRPAC"",""AIRPORT"",""AIRWAYS"",""AIRYHALL"",""AIRYLEA"",""AKRON"",""ALAD"",""ALASDAIR"",""ALB"",""ALBATECH"",""ALFA"",""ALL"",""ALLIANCE"",""ALLIED"",""ALLOMAX"",""ALPINE"",""ALSTEV"",""ALTERNATIVES"",""ALTRA"",""ALWAYS"",""ALZHEIMER"",""AM"",""AMALGAMATED"",""AMAT"",""AMATOLA"",""AMBER"",""AMEC"",""AMERICAN"",""AMETEK"",""AMIN"",""AMITEC"",""AMOCO"",""AMTECH"",""AMTRAK"",""AMUSEMENT"",""AND"",""ANDERGAUGE"",""ANIXTER"",""ANKA"",""ANTIQUES"",""ANTRIM"",""AOC"",""AP"",""APARDION"",""APEX"",""APOLLO"",""APOSTOLIC"",""APPEALS"",""APPLIED"",""APPOLLO"",""AQUA"",""AQUARISTS"",""AQUATEC"",""AQUATIC"",""AQUIDATA"",""ARCHITECTURAL"",""ARCO"",""ARGONAUT"",""ARGOSY"",""ARISTACUT"",""ARJO"",""ARJON"",""ARKAIG"",""ARTISTES"",""ARTISTS"",""ARTWORKS"",""ARUP"",""AS"",""ASA"",""ASCOT"",""ASDASUPERSTORES"",""ASHVALE"",""ASPECT"",""ASSEMBLIES"",""ASSESSORS"",""ASSOCIATED"",""ASSOCIATES"",""ASSOCIATION"",""ASSURANCE"",""ASTER"",""ASTRA"",""ATEL"",""ATHENA"",""ATHENAEUM"",""ATHOLL"",""ATLANTIC"",""AUCHMILL"",""AUCHTERLESS"",""AUGHTON"",""AUGUST"",""AUP"",""AUQUHARNEY"",""AURORA"",""AUTO"",""AUTOFIX"",""AUTOGLASS"",""AUTOMAGIC"",""AUTOQUICK"",""AUTOSAVE"",""AUTOSPRAY"",""AUTOTRUCK"",""AVCO"",""AVENUE"",""AWAKENING"",""AWAY"",""AXIOM"",""AZTEC"",""BAADER"",""BALNAGASK"",""BANKHEAD"",""BAR"",""BARICO"",""BARRIER"",""BARTERING"",""BASELINE"",""BATCHBRIGHT"",""BATH"",""BATHROOM"",""BAVARIA"",""BAYLISS"",""BAYLOR"",""BEARING"",""BEATTIES"",""BEAUTY"",""BEAVERBROOKS"",""BEECHWOOD"",""BEEFEATER"",""BEELINE"",""BEFRIEND"",""BENBOW"",""BESTWAY"",""BEWS"",""BIKES"",""BLIND"",""BLINDCRAFT"",""BLINDS"",""BLOOD"",""BLOOMING"",""BLOSSOMS"",""BLOW"",""BLUEBELLS"",""BMT"",""BNA"",""BOARD"",""BOARS"",""BOAT"",""BODY"",""BOHEMIA"",""BOILERMAKERS"",""BON"",""BONADDIO"",""BONAVENTURE"",""BONIVIEW"",""BONNYMUIR"",""BOOKBINDING"",""BOOTS"",""BOROWSKI"",""BORSALINO"",""BOSANQUET"",""BOSCH"",""BOTTLED"",""BOULEVARD"",""BOURTREE"",""BOWEN"",""BOWLING"",""BOWTECH"",""BOX"",""BP"",""BPCC"",""BRA"",""BRACKENRIDGE"",""BRAEHEAD"",""BRAESIDE"",""BRAKE"",""BRIEF"",""BRITANNIA"",""BRITANNIC"",""BROAD"",""BROADCAST"",""BROADSTRAIK"",""BROS"",""BROTHERHOOD"",""BRUNSWICK"",""BUCKSBURN"",""BUDGET"",""BUILDING"",""BULAWEYO"",""BUREAU"",""BURNTHILLS"",""BUS"",""BUSINESS"",""CABER"",""CABINS"",""CABLE"",""CABS"",""CAFE"",""CAIRD"",""CAIRNCRY"",""CAIRNGORM"",""CAKE"",""CALEDON"",""CALEDONIA"",""CALEDONIAN"",""CALLANDERS"",""CALOR"",""CALTEC"",""CALVARYTABERNACLEUNITED"",""CAMARGUE"",""CAMEO"",""CAMPAIGN"",""CAMPBELLS"",""CAMPHILL"",""CAMWATER"",""CAN"",""CANALE"",""CANCER"",""CANDO"",""CANSCO"",""CAPE"",""CARADON"",""CARD"",""CAREERS"",""CARGO"",""CARPET"",""CARPETS""" ;Global $brformula = "=IF(OR(ISNUMBER(search("" ""&{" & $selector & "}&"" "","" ""&b1&"" ""))),""YES"",""NO"")" Global Const $xlCellTypeVisible = 12 ; All visible cells Global $aData[] = [" ", 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4] Global $oExcel = _Excel_Open() ; Connect to Excel or open a new instance Global $oWorkbook = _Excel_BookNew($oExcel) ; Create a new workbook _Excel_RangeWrite($oWorkbook, Default, $aData, "A1") ; Write the array to the workbook MsgBox(0, "RangeWrite Data", @error) _Excel_RangeWrite($oWorkbook, Default, "=Mod(A2;2)", "$B2:B" & $oWorkbook.Activesheet.UsedRange.Rows.Count, False) ; Insert the formula (modulo) in column B MsgBox(0, "RangeWrite Formula", @error) _Excel_FilterSet($oWorkbook, Default, $oWorkbook.Activesheet.UsedRange, 2, "1") ; Only display even numbers MsgBox(0, "FilterSet", @error) Global $oRange = $oWorkbook.Activesheet.UsedRange.SpecialCells($xlCellTypeVisible) ; Only select visible rows MsgBox(0, "Visible cells", @error) $oRange.EntireRow.Delete ; delete visible rows Each MsgBox shows the result. Click OK to proceed to the next step.

Try $oExcel.ActiveWorkbook.Saved = True before closing the workbook.

I modified the Constants include file too. Add this line to your script: Global Const $xlCellTypeVisible = 12 ; All visible cells

I can't believe I was arguing about the return statement and everyone else was focused on the description. *facepalm* sorrry.

hi bitboy, that's what I used for gui too don't tell anyone how to do it since it's an hard process to make a gui since it uses another process and I don't want to talk about it here, because it's not the first purpose with the gui created in another process, then we can use interprocess ( use pipes or tcp instead of file ) to communicate between use process and service, that's how other program do. Btw about the old script, it seems that I have less problem if I reboot the computer. so for you I can post the update as it ?

Biatu, I appreciate your sentiments, but decompiling and posting another person's code is about as heinous a crime as you can commmit around here - so the punishment was entirely merited. I am afraid I did not keep the link - nor a copy of the code it contained. M23

GUISetState ( @SW_HIDE , <winhandle> )

Unique to that dimension implies to me that it's only returning the elements that are already unique in it, which is not what it does. The elements in the returned array have to come from somewhere, even though it's not byref, it's still returning the elements from the incoming array, removing all duplicates, and returning just the unique elements. Hence, it makes the elements unique, it doesn't return the unique elements. If it were to return the unique elements from the incoming array, it would only return the elements that have no duplicates in the first place and discard all the elements that are duplicated. So an array with 1,2,3,3,3,4,5 would return 1,2,4,5 if it were truly returning the unique elements. BTW, I have updated the help file description for _ArrayUnique to accurately describe what it does.

The forum rules are VERY clear about decompiling other people's scripts, even discussing decompiling can lead to sanctions. What isosmart did was a blatant violation of the rules, whether they affected you or not, and deserved what he got.

Biatu. An admirable responce from you. I like the screenshots BTW. I'll give your program a try shortly, I have a lot on at the moment, but I think it looks very interesting.

The ini file is created by the script. InIRead returns a default value of 36 if the file does not exist. If IniWrite the file is then created with a value of 37

Because you created your account today. To prevent spamming a new user has only 10 posts on his first day on the forum. But if needed this limit can be lifted by a Mod. Read the row number from an ini file, increment the number and store it again in a the ini file: Global $iRow = IniRead("Test.Ini", "Main", "Row", 36) ; Process Excel here $iRow = $iRow + 1 If $iRow > 40 Then $iRow = 36 IniWrite("Test.Ini", "Main", "Row", $iRow)

How about faking it like this. #include <GUIConstantsEx.au3> #include <EditConstants.au3> #include <StaticConstants.au3> ; Create GUI $hGUI = GUICreate("Subclassed Input Control without Highlight", 500, 210) $hInput = GUICtrlCreateInput(640, 90, 10, 16, 20, BitOR($ES_NUMBER, $ES_CENTER, $ES_READONLY)) $hLabel = GUICtrlCreateLabel(640, 10, 10, 80, 20, BitOR($SS_CENTER, $GUI_SS_DEFAULT_LABEL, $SS_SUNKEN)) GUICtrlSetBkColor($hLabel, 0xFFFFFF) GUICtrlSetColor($hLabel, 0x000000) $hUpDown = GUICtrlCreateUpdown($hInput) $hButton = GUICtrlCreateButton("Dummy", 10, 50, 80, 30) GUISetState() While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE GUIDelete($hGUI) Exit Case $hUpDown GUICtrlSetData($hLabel, GUICtrlRead($hInput)) EndSwitch WEnd