Sign in to follow this  
Followers 0
Medic873

If Not Equal

10 posts in this topic

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

Share this post


Link to post
Share on other sites



If UBound($aName) <> 0 Then 
; Or ... If UBound($aName) Then
; Or ... If UBound($aName) > 0 Then


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_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 parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

Thanks I just code not find that snippet anywhere.

Thank You So Much

Share this post


Link to post
Share on other sites

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.


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_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 parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

Hmmm I still have a error and I cant find out why

 

   $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

 

Share this post


Link to post
Share on other sites

#6 ·  Posted (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 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

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

here is all my code still can not figure out have tried changing so many things

#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 by Medic873

Share this post


Link to post
Share on other sites

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 Gude
How 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

Share this post


Link to post
Share on other sites

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. 

  1. The date I used was 2015/04/01.
  2. 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.
  3. I added some troubleshooting code enclosed in comment blocks.
#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

Share this post


Link to post
Share on other sites

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.


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_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 parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0