Dictionary, Trimming down HTML

[floodge]

Do you mean the _ArrayDisplay window?

If you have a default of "NotFound" then shouldn't you have

If $str2 = "NotFound" Then

?

Yes

"If $str2 = "NotFound" Then"

Then what?

[Authenticity]

Hmm, you can then go to the next section or read the file line by line 'till the end of the file, this way you can drop using ini file reading.

[GEOSoft]

if $str2 = "NotFound" Then
           exit
       EndIf

[martin]

if $str2 = "NotFound" Then
            exit
        EndIf

Precisely

I should have made a statement rather than ask a question because the '?' which was simply a question mark at the end of my ..er question, was possibly interpreted as standing for something unknown. So was the ? for unknown or was it just a ?? (But please don't ask "Why did you write ???")

[martin]

Yes

Here's one way to do it if you don't want to make your own gui with a listview

expandcollapse popup

#include <array.au3>
 #include <string.au3>
 #include <INet.au3>
 #include <timers.au3>
 #include <listviewconstants.au3>
 
 $tofind = "search";hammer"
 $mystr = "http://dictionary.reference.com/browse/" & $tofind
 $str = _INetGetSource($mystr)
 $str = StringTrimLeft($str, StringInStr($str, '<td width="35" class="dnindex">1.</td> <td>') - 1)
 
 $str = StringReplace($str, '<div class="ety"> <b>Origin:', '<span class="sectionLabel">Synonyms:')
 
 ConsoleWrite(@extended & @CRLF)
 $str = _StringBetween($str, '<td width="35" class="dnindex">1.</td> <td>', '<span class="sectionLabel">Synonyms:')
 $lines = StringSplit($str[0], '<td width="35" class="dnindex">', 1)
 $lines[1] = "1. " & $lines[1]
 
 $t1 = _Timer_SetTimer(0, 20, "Expand")
 $newwid = 1000
 _ArrayDisplay($lines)
 For $n = 1 To $lines[0]
     $lines[$n] = StringRegExpReplace($lines[$n], "(<.*?>)", "")
 Next
 
 $t1 = _Timer_SetTimer(0, 20, "Expand")
 $newwid = 1200
 _ArrayDisplay($lines);<--now gives 14 results
 
;version II
 $lines = "1. " & StringReplace($str[0], '<td width="35" class="dnindex">', @CRLF)
 
 $lines = StringRegExpReplace($lines, "(<.*?>)", "")
 MsgBox(262144, "result ", $lines)
 
 Func expand($a, $b, $c, $d)
     If WinExists("Array: ListView Display") Then
         
         _Timer_KillTimer(0, $t1)
         $hlv = ControlGetHandle("Array: ListView Display", "", "[CLASS:SysListView32;INSTANCE:1]")
         $pitch = _SendMessage($hlv,$LVM_GETITEMSPACING,1,0)
         $pitch = $pitch/0xffff;get high word for vertical spacing
         WinMove("Array: ListView Display", "", 100, 80, $newwid, 100 + ($lines[0]+1)*$pitch)
         _SendMessage($hlv, $LVM_SETCOLUMNWIDTH, 1, $newwid )
     EndIf
 
 EndFunc ;==>expand

Edited March 21, 2009 by martin

[floodge]

@martin, that code gives a pitch not declared error, I may as well try coding by own listview

EDIT: The application is now done, aside from array resizing!

Edited March 22, 2009 by floodge

[martin]

@martin, that code gives a pitch not declared error, I may as well try coding by own listview

No it doesn't

You can't be running what I posted, or you have a different version of AutoIt which is the reason, but $pitch is set before it is used and I haven't set the option "MustDeclareVars". _SendMessage requires SendMessage.au3 but that is already included in WinAPI.au3 which is included in INet.au3.

But making your own listview is probably better.

EDIT: spelling - see next post.

Edited March 22, 2009 by martin

[GEOSoft]

No it doesn't

....... and I haven't set the option "MustDeclareCars".

If you have that Opt() then you and I are not running the same version either.

[martin]

If you have that Opt() then you and I are not running the same version either.

Well it stops you having variables like $mercedes and $ford.

On the other hand maybe I meant "MustDeclareVars", I'll correct my post.

[GEOSoft]

Well it stops you having variables like $mercedes and $ford.

It might be a good idea but I'm not sure that I want to be the one to ask Valik for another Opt().