If Not Equal

[Medic873]

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]

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

[Medic873]

Thanks I just code not find that snippet anywhere.

Thank You So Much

[guinness]

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.

[Medic873]

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]

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

[Medic873]

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]

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.

[kylomas]

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.

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

[guinness]

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.