Medic873 Posted April 15, 2015 Posted April 15, 2015 I searched the forum and the help file but I can not find a statement for not equal. Just want to write a line to stop code from erroring out like such if ubound($Name) != 0 Then EndIf
guinness Posted April 15, 2015 Posted April 15, 2015 If UBound($aName) <> 0 Then ; Or ... If UBound($aName) Then ; Or ... If UBound($aName) > 0 Then UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018
Medic873 Posted April 15, 2015 Author Posted April 15, 2015 Thanks I just code not find that snippet anywhere. Thank You So Much
guinness Posted April 15, 2015 Posted April 15, 2015 Well it's in the help file, search for >. I am surprised you haven't known this when you have 199 posts to your name. UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018
Medic873 Posted April 15, 2015 Author Posted April 15, 2015 Hmmm I still have a error and I cant find out why expandcollapse popup $Contact = 0; $BBBUrl = FileReadLine($tempfile, $PullContactInformation) $BBBContactHTML = _INetGetSource($BBBurl); InetClose ($BBBContactHTML);Closes the connection to the BBB $Name = _StringBetween($BBBContactHTML, '<meta itemprop="legalName" content="', '" />'); If UBound($Name) <> 0 Then $Contact = 1; EndIf $PhoneNumber = _StringBetween($BBBContactHTML, '<meta itemprop="telephone" content="', '" />'); If UBound($PhoneNumber) <> 0 Then $Contact = 1; EndIf $City = _StringBetween($BBBContactHTML, '<meta itemprop="addressLocality" content="', '" />'); If Ubound($City) <> 0 Then $Contact = 1; EndIf $State = _StringBetween($BBBContactHTML, '<meta itemprop="addressRegion" content="', '" />'); If Ubound($State) <> 0 Then $Contact = 1; EndIf $Website = _StringBetween($BBBContactHTML, '<meta itemprop="url" content="', '" />'); If Ubound($Website) <> 0 Then $Contact = 1; EndIf If $Contact = 0 Then $FinishedFile = "C:\Users\Medic873\Desktop\directory stuff\finish.txt"; FileWriteLine($FinishedFile , "," & $TodaysDate & "," & $Name[0] & "," & $City[0] & "," & $State[0] & "," & $PhoneNumber[0] & "," & "NA" & "," & $BBBUrl & "," & "" & "," & $AudioFile & "," & "0000-00-00"); EndIf
kylomas Posted April 15, 2015 Posted April 15, 2015 (edited) Medic873, You are returning the source in binary format (see _INetGetSource parm two). You will find better help if you post runnable reproducers. kylomas edit: Duh!! Edited April 16, 2015 by kylomas Forum Rules Procedure for posting code "I like pigs. Dogs look up to us. Cats look down on us. Pigs treat us as equals." - Sir Winston Churchill
Medic873 Posted April 16, 2015 Author Posted April 16, 2015 (edited) here is all my code still can not figure out have tried changing so many things expandcollapse popup#include <IE.au3> #include <array.au3> #Include <File.au3> #include <string.au3> #include <INet.au3> Local $tempfile = FileOpen("C:\Users\Medic873\Desktop\directory stuff\here.txt", 1) $Url = 'http://www.bbb.org/search/?type=category&input=flooring&location=Austin%2c+TX&filter=business&accredited=&radius=50&country=USA,%20CAN&language=en&codeType=YPPA&page=1&source='; $TodaysDate = InputBox("Todays Date", "Please enter todays date in the fallowing format. YYYY-MM-DD"); $AudioFile = "file.mp3"; $BBBHTML = _INetGetSource($Url);Pulls the data from the address InetClose ($BBBHTML);Closes the connection to yellow pages $HowManyPagesAreThereStart = _StringBetween($BBBHTML, ' <li class="disabled"><span>...</span></li>', '</li>'); $HowManyPagesThereAre = _StringBetween($HowManyPagesAreThereStart[0], '">', '</a>'); $PageCount = 1; Do $Url = 'http://www.bbb.org/search/?type=category&input=flooring&location=Austin%2c+TX&filter=business&accredited=&radius=50&country=USA,%20CAN&language=en&codeType=YPPA&page=' & $PageCount & '&source='; $BBBHTML = _INetGetSource($Url);Pulls the data from the address InetClose ($BBBHTML);Closes the connection to yellow pages $BBBListingHTML = _StringBetween($BBBHTML, '<td class="business-info">', '</td> '); $i = 0; Do $BBBListingUrl = _StringBetween($BBBListingHTML[$i], 'href="', '">'); FileWriteLine($tempfile, $BBBListingUrl[0]); $i = $i + 1; Until (Ubound($BBBListingHTML) = $i); $PageCount = $PageCount + 1; Until $PageCount = $HowManyPagesThereAre[0] FileClose($tempfile);Closes File For A second Local $tempfile = FileOpen("C:\Users\Medic873\Desktop\directory stuff\here.txt", 0) Local $FinishFile = FileOpen("C:\Users\Medic873\Desktop\directory stuff\finish.txt", 1); $PullContactInformation = 1; $TotalBBBPages = _FileCountLines($tempfile); Do $Contact = 0; $BBBUrl = FileReadLine($tempfile, $PullContactInformation) $BBBContactHTML = _INetGetSource($BBBUrl); InetClose ($BBBContactHTML);Closes the connection to the BBB $Name = _StringBetween($BBBContactHTML, '<meta itemprop="legalName" content="', '" />'); If UBound($Name) > 0 Then $Contact = 1; EndIf $PhoneNumber = _StringBetween($BBBContactHTML, '<meta itemprop="telephone" content="', '" />'); $City = _StringBetween($BBBContactHTML, '<meta itemprop="addressLocality" content="', '" />'); $State = _StringBetween($BBBContactHTML, '<meta itemprop="addressRegion" content="', '" />'); $Website = _StringBetween($BBBContactHTML, '<meta itemprop="url" content="', '" />'); If $Contact = 0 Then FileWriteLine($FinishFile , "," & $TodaysDate & "," & $Name[0] & "," & $City[0] & "," & $State[0] & "," & $PhoneNumber[0] & "," & "NA" & "," & $BBBUrl & "," & "" & "," & $AudioFile & "," & "0000-00-00"); EndIf $PullContactInformation = $PullContactInformation + 1; Until $PullContactInformation = $TotalBBBPages Edited April 16, 2015 by Medic873
BrewManNH Posted April 16, 2015 Posted April 16, 2015 One thing I noticed is that here you check to see if there's anything inside the $Name array and set $Contact to 1 If UBound($Name) > 0 Then $Contact = 1; EndIf But here you're checking to see if $Contact = 0 and if it does, write to the file. If $Contact = 0 Then FileWriteLine($FinishFile, "," & $TodaysDate & "," & $Name[0] & "," & $City[0] & "," & $State[0] & "," & $PhoneNumber[0] & "," & "NA" & "," & $BBBUrl & "," & "" & "," & $AudioFile & "," & "0000-00-00"); EndIf If $Contact is 0, doesn't that mean that $Name isn't an array and doesn't contain anything? That should give you an array error in that line. If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag GudeHow to ask questions the smart way! I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from. Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays. - ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script. - Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label. - _FileGetProperty - Retrieve the properties of a file - SciTE Toolbar - A toolbar demo for use with the SciTE editor - GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI. - Latin Square password generator
kylomas Posted April 16, 2015 Posted April 16, 2015 Medic873, In addition to what BrewManNH found, _FileCountLines takes a path, not handle, as a parm. The following code appears to run but I did not let it complete as it was accessing 2700+ WEB pages and was taking forever. The date I used was 2015/04/01. I changed the path's to the files to run on my PC. I suggest that you use @SCRIPTDIR instead of hardcoded paths for compatibility. I added some troubleshooting code enclosed in comment blocks. expandcollapse popup#include <IE.au3> #include <array.au3> #include <File.au3> #include <string.au3> #include <INet.au3> Local $tempfile = FileOpen(@scriptdir & "\here.txt", 1) ;Local $tempfile = FileOpen("C:\Users\Medic873\Desktop\directory stuff\here.txt", 1) $Url = 'http://www.bbb.org/search/?type=category&input=flooring&location=Austin%2c+TX&filter=business&accredited=&radius=50&country=USA,%20CAN&language=en&codeType=YPPA&page=1&source='; $TodaysDate = InputBox("Todays Date", "Please enter todays date in the fallowing format. YYYY-MM-DD"); $AudioFile = "file.mp3"; $BBBHTML = _INetGetSource($Url);Pulls the data from the address InetClose($BBBHTML);Closes the connection to yellow pages $HowManyPagesAreThereStart = _StringBetween($BBBHTML, ' <li class="disabled"><span>...</span></li>', '</li>'); $HowManyPagesThereAre = _StringBetween($HowManyPagesAreThereStart[0], '">', '</a>'); $PageCount = 1; Do $Url = 'http://www.bbb.org/search/?type=category&input=flooring&location=Austin%2c+TX&filter=business&accredited=&radius=50&country=USA,%20CAN&language=en&codeType=YPPA&page=' & $PageCount & '&source='; $BBBHTML = _INetGetSource($Url);Pulls the data from the address InetClose($BBBHTML);Closes the connection to yellow pages $BBBListingHTML = _StringBetween($BBBHTML, '<td class="business-info">', '</td> '); ; ;_arraydisplay($BBBListingHTML) ; $i = 0; Do $BBBListingUrl = _StringBetween($BBBListingHTML[$i], 'href="', '">'); ; ;_arraydisplay($BBBListingUrl) ; FileWriteLine($tempfile, $BBBListingUrl[0]); $i = $i + 1; Until (UBound($BBBListingHTML) = $i); $PageCount = $PageCount + 1; ; ConsoleWrite(stringformat('PageCount = %s\nHowManyPagesAreThere = %s\n',$PageCount, $HowManyPagesThereAre[0]) & @CRLF) ; Until $PageCount = $HowManyPagesThereAre[0] FileClose($tempfile);Closes File For A second ; ;if msgbox(1,'',fileread(@scriptdir & "\here.txt")) = 2 then Exit ; ; $tempfile = 0 ;Local $tempfile = FileOpen("C:\Users\Medic873\Desktop\directory stuff\here.txt", 0) Local $tempfile = FileOpen(@scriptdir & "\here.txt", 0) ;Local $FinishFile = FileOpen("C:\Users\Medic873\Desktop\directory stuff\finish.txt", 1); Local $FinishFile = FileOpen(@scriptdir & "\finish.txt", 1); ; $PullContactInformation = 1; ;$TotalBBBPages = _FileCountLines($tempfile); $TotalBBBPages = _FileCountLines(@scriptdir & "\here.txt") ; <------- this takes a path not a handle ; if msgbox(1,'TotalBBBPages',$TotalBBBPages) = 2 then exit ; Do $Contact = 0; $BBBUrl = FileReadLine($tempfile, $PullContactInformation) $BBBContactHTML = _INetGetSource($BBBUrl); InetClose($BBBContactHTML);Closes the connection to the BBB $Name = _StringBetween($BBBContactHTML, '<meta itemprop="legalName" content="', '" />'); If UBound($Name) > 0 Then $Contact = 1; EndIf $PhoneNumber = _StringBetween($BBBContactHTML, '<meta itemprop="telephone" content="', '" />'); $City = _StringBetween($BBBContactHTML, '<meta itemprop="addressLocality" content="', '" />'); $State = _StringBetween($BBBContactHTML, '<meta itemprop="addressRegion" content="', '" />'); $Website = _StringBetween($BBBContactHTML, '<meta itemprop="url" content="', '" />'); If $Contact = 1 Then FileWriteLine($FinishFile, "," & $TodaysDate & "," & $Name[0] & "," & $City[0] & "," & $State[0] & "," & $PhoneNumber[0] & "," & "NA" & "," & $BBBUrl & "," & "" & "," & $AudioFile & "," & "0000-00-00"); EndIf $PullContactInformation = $PullContactInformation + 1; ; ConsoleWrite(stringformat('PullContactInformation = %s\nTotalBBBPages = %s\n',$PullContactInformation, $TotalBBBPages) & @CRLF) ; Until $PullContactInformation = $TotalBBBPages kylomas Forum Rules Procedure for posting code "I like pigs. Dogs look up to us. Cats look down on us. Pigs treat us as equals." - Sir Winston Churchill
guinness Posted April 16, 2015 Posted April 16, 2015 I happened to see your old code and thought I would point out that if you want to know a function failed, then check the @error macro to see if it's non-zero i.e. anything else but zero. UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now