Help extracting a line from files and storing them.

[Flaips]

So, I have around 900 html files stored on a folder, each file has a 4-digit number as its name, and inside on a line there is one line with a string of text, what I want to do is store the name of the file plus the string on a txt, like so:

1222 - String 1

1443 - String 2

Any help on that or is that even possible?

Thank you all in advance.

[jchd]

Which "line"? The mere concept of line in html source is rather fuzzy.

[Flaips]

Which "line"? The mere concept of line in html source is rather fuzzy.

 

When you open the .htm file with a text editor like Notepad++ on the line 87 of every file there is something like:

<td>Example name</td>

but each file has a different string between the <td> tags.

I just want to save these particular lines(the tag can stay, but if it's possible to save without it, it would be great) together with the name of the file, like I explained earlier.

I hope that this explains it all.

[michaelslamet]

Hi Flaipds,

Yes, that is doable with AutoIT and in fact, it's not hard.

Take a look at:

_FileListToArray

_StringBetween

FileWriteLine or FileOpen and FileWrite

Write your code and consult them here by posting it when you think you need help

Good luck!

[mikell]

Seems that this can be done using the simplest way

Place the script in the same folder than the html files

#include <String.au3>
#include <Array.au3>

Local $array[1000][2], $n = 0
$hSearch = FileFindFirstFile("*.html")
While 1
     $n += 1
     $sFileName = FileFindNextFile($hSearch)
     If @error Then ExitLoop
     $array[$n][0] = StringReplace($sFileName, ".html", "")
     $array[$n][1] = _StringBetween(FileReadLine($sFileName, 87), '<td>', '</td>')
Wend
FileClose($hSearch)
$array[0][0] = $n
Redim $array[$n+1][2]
_ArrayDisplay($array)

[Flaips]

Hi Flaipds,

Yes, that is doable with AutoIT and in fact, it's not hard.

Take a look at:

_FileListToArray

_StringBetween

FileWriteLine or FileOpen and FileWrite

Write your code and consult them here by posting it when you think you need help

Good luck!

Thanks, I will have a look at that later, even if it's to understand what's going on.

 

 

Seems that this can be done using the simplest way

Place the script in the same folder than the html files

#include <String.au3>
#include <Array.au3>

Local $array[1000][2], $n = 0
$hSearch = FileFindFirstFile("*.html")
While 1
     $n += 1
     $sFileName = FileFindNextFile($hSearch)
     If @error Then ExitLoop
     $array[$n][0] = StringReplace($sFileName, ".html", "")
     $array[$n][1] = _StringBetween(FileReadLine($sFileName, 87), '<td>', '</td>')
Wend
FileClose($hSearch)
$array[0][0] = $n
Redim $array[$n+1][2]
_ArrayDisplay($array)

It did return me all the file names, which is a great start, like so:

956|
0997|

With more 900 numbers of course, but for some reason it didn't return the names, only white spaces, so I tried to play around with code, and changed this:

$array[$n][1] = _StringBetween(FileReadLine($sFileName, 87), '<td>', '</td>')

to this:

$array[$n][1] = _StringBetween(FileReadLine($sFileName, 87), '            <td>', '</td>')

because of the white spaces on the line, and I don't know if that is necessary, but after that it returned 0, like so:

956|
0997|0
0998|0

Any clue as to what is going on?

Sorry for bothering you, but thanks for the help.

[Malkey]

_StringBetween function returns an array. So, in your script you are storing an array in $array[$n][1] - an array in an array.

If you are using The latest AutoIt release version 3.3.10.2, or the latest beta version then this should work.  Note the trailing "[0]".

$array[$n][1] = _StringBetween(FileReadLine($sFileName, 87), '<td>', '</td>')[0]

[Flaips]

 

_StringBetween function returns an array. So, in your script you are storing an array in $array[$n][1] - an array in an array.

If you are using The latest AutoIt release version 3.3.10.2, or the latest beta version then this should work.  Note the trailing "[0]".

$array[$n][1] = _StringBetween(FileReadLine($sFileName, 87), '<td>', '</td>')[0]

Yup, that worked perfectly, thank you all for the help ^^.

And in case anyone ever finds themselves with the same problem, this is the code I used:

 

#include <String.au3>
#include <Array.au3>

Local $array[1000][2], $n = 0
$hSearch = FileFindFirstFile("*.htm")
While 1
     $n += 1
     $sFileName = FileFindNextFile($hSearch)
     If @error Then ExitLoop
     $array[$n][0] = StringReplace($sFileName, ".htm", "")
     $array[$n][1] = _StringBetween(FileReadLine($sFileName, 87), '<td>', '</td>')[0]
Wend
FileClose($hSearch)
$array[0][0] = $n
Redim $array[$n+1][2]
_ArrayDisplay($array)

Thanks everyone for the help and support.