extract a sentence containing word in text file

[Nine]

1 minute ago, JockoDundee said:

I can't believe you're still holding a grudge about the an hybrid thing

Never underestimate a MVP that speak french at 6h30 pm...

[JockoDundee]

1 minute ago, Nine said:

Never underestimate a MVP that speak french at 6h30 pm...

Thank you for translating from your native time for me...

[Nine]

My pleasure !

[JockoDundee]

1 minute ago, Nine said:

My pleasure !

Predict whether the OP will succumb to my thinly veiled up-voting extortion scheme...

On the one hand, he seems to really need the program,

On the other hand, he doesn't respond well to direction.

[vinnyMS]

i thanked everybody

sorry, didn't think of that forum feature

[JockoDundee]

Local $sentences=".!? " & StringRegExpReplace(FileRead("2.txt"), "([\!\.\?])", "$1.!?")
$sentences=StringRegExpReplace($sentences, "([\n][\n])", ".!?")
FileDelete("results.txt")
For $word In StringSplit(FileRead("1.txt"), @CRLF, 3)
   FileWriteLine("results.txt",@CRLF & "WORD: "& $word)
   $iEPos=1
   For $n = 1 to 3
      $iWPos=StringInStr($sentences, $word, 0, 1, $iEpos)
      If $iWPos=0 Then ExitLoop
      $iSPos=StringInStr($sentences, ".!?", 0, -1, $iwPos)
      $iEPos=StringInStr($sentences, ".!?", 0, 1, $iwPos)
      $sentence=StringStripWS(StringMid($sentences, $iSPos + 3, $iEPos - $iSpos - 3),3)
      FileWriteLine("results.txt", $sentence)
   Next
Next

 

[mikell]

8 hours ago, JockoDundee said:

Why don't you take this time to go back and upvote all the people who tried to help you in this thread, myself excluded?

Got one ! thanks for this unexpected proxy upvote 

[Musashi]

10 hours ago, JockoDundee said:

10 hours ago, Nine said:

Never underestimate a MVP that speak french at 6h30 pm...

Thank you for translating from your native time for me...

[Completely off topic : Question to native speakers]

Could it not also be pronounced or written "Never underestimate an MVP that speak french at 6h30 pm... " ? (I'm pretty sure, I've already heard it this way from American sports commentators (m/f/d))

Is this possibly one of those "hybrid things", that Jocko is so in love with ?

[vinnyMS]

On 4/29/2021 at 7:19 PM, JockoDundee said:

Local $sentences=".!? " & StringRegExpReplace(FileRead("2.txt"), "([\!\.\?])", "$1.!?")
$sentences=StringRegExpReplace($sentences, "([\n][\n])", ".!?")
FileDelete("results.txt")
For $word In StringSplit(FileRead("1.txt"), @CRLF, 3)
   FileWriteLine("results.txt",@CRLF & "WORD: "& $word)
   $iEPos=1
   For $n = 1 to 3
      $iWPos=StringInStr($sentences, $word, 0, 1, $iEpos)
      If $iWPos=0 Then ExitLoop
      $iSPos=StringInStr($sentences, ".!?", 0, -1, $iwPos)
      $iEPos=StringInStr($sentences, ".!?", 0, 1, $iwPos)
      $sentence=StringStripWS(StringMid($sentences, $iSPos + 3, $iEPos - $iSpos - 3),3)
      FileWriteLine("results.txt", $sentence)
   Next
Next

 

this works only for the previous examples i posted (text files) if 2.txt is different it doesn't give the right results.

2.txt

Edited May 1, 2021 by vinnyMS

[JockoDundee]

22 minutes ago, vinnyMS said:

this works only for the previous examples i posted (text files) if 2.txt is different it doesn't give the right results.

2.txt 385 B · 2 downloads

I see we have upgraded to extended ascii characters.

Post the entire 1.txt and 2.txt.   It’s just some O’Reilly book, right?

p.s. the reason that it works for “only the previous versions” that you’ve posted is because you introduce a new general case each time.  So let’s put all the cards on the table, eh?

Edited May 1, 2021 by JockoDundee

[vinnyMS]

here, it's a book in txt format

2.txt

[JockoDundee]

Yo, vinny that file is a UniCode Zoo, with quite a few strange formatting rules.

But If you make it like your original files, no prob.

However, if you insist, here's one last go; also and btw, @mikell made a new unremunerated funny, maybe an oversight on your part?

Local $sentences=".!? " & StringRegExpReplace(FileRead("2.txt"), "([\!\.\?])", "$1.!?")
$sentences=StringReplace($sentences, @CRLF&@CRLF, ".!?" & @CRLF)
Local $sentences2=StringRegExpReplace($sentences, "([\!\.\?\n\r\,\;\:\f\(\)])", " ")
FileDelete("results.txt")
For $word In StringSplit(FileRead("1.txt"), @CRLF, 3)
   FileWriteLine("results.txt",@CRLF & "WORD: "& $word)
   $iEPos=1
   For $n = 1 to 3
      $iWPos=StringInStr($sentences2, " "&$word&" ", 0, 1, $iEpos)
      If $iWPos=0 Then ExitLoop
      $iSPos=StringInStr($sentences, ".!?", 0, -1, $iwPos)
      $iEPos=StringInStr($sentences, ".!?", 0, 1, $iwPos)
      $sentence=StringStripWS(StringMid($sentences, $iSPos + 3, $iEPos - $iSpos - 3),3)
      $sentence=StringReplace($sentence, @CRLF, "")
      FileWriteLine("results.txt", $sentence)
   Next
Next

 

[Deye]

As long as it takes another shot.  (Might be cleaner)

expandcollapse popup

#include <File.au3>

$file = '2.txt'

$word_MatchRepeat = 4

$sWords = "protocol|across|report|browser|closed"

$array = _a(FileRead($file), $sWords, $word_MatchRepeat)
If IsArray($array) Then
    _ArrayDisplay($array, "Results")
    _SaveToFile($array, "results.txt")
EndIf

Func _SaveToFile($arr, $sFileName)
    FileDelete($sFileName)
    FileWrite($sFileName, _ArrayToString($arr, Default, 1, Default, Default, 0, 0))
EndFunc   ;==>_SaveToFile

Func _a($s, $wPatt, $iWR)
    If $s = "" Then Return
    Local $aWords = StringSplit($wPatt, "|")
    Local $s1 = StringRegExpReplace(StringRegExpReplace($s, '\b[^.][^\R]\R', " "), '(\b[^.]+)\R(?=\b[^.]+\.)', "")
    Local $patt = "[^.]+(\b\Q " & StringReplace($wPatt, "|", "\E|\b\Q ") & '\E)+([.$]|[^.]+\.)(*SKIP)(*F)|[^.]+'

    $s1 = StringRegExpReplace($s1, $patt, "")
    Local $a = StringRegExp($s1, '\b[^.]+[.$]', 3)

    _ArrayColInsert($a, 1)
    ReDim $a[UBound($a)][$aWords[0] + 2]

    For $i = 1 To $aWords[0]
        For $j = 0 To UBound($a) - 1
            If StringInStr($a[$j][0], " " & $aWords[$i]) Then
                $a[$j][$i] = $aWords[$i]
                $a[$j][UBound($a, 2) - 1] += 1
            EndIf
        Next
    Next
    _ArraySort($a, 0, Default, Default, UBound($a, 2) - 1)
    _ArrayColInsert($aWords, 1)

    Local $aNew[1][2], $iRandom
    For $i = 1 To $aWords[0][0]
        $iRandom = Random(UBound($a) - 1 > 9 ? 10 : 1, UBound($a) - 1, 1)
        Do
            If $aWords[$i][1] >= $iWR Then ExitLoop
            $index = _ArraySearch($a, "\w+", $iRandom, Default, Default, 3, Default, $i)
            If $index < 0 Then
                If $iRandom > 1 Then
                    $iRandom -= Random(1, 4, 1)
                    ContinueLoop
                Else
                    ExitLoop
                EndIf
            EndIf

            _ArrayAdd($aNew, StringRegExpReplace($a[$index][0], "\R", "") & "|" & $aWords[$i][0], Default, "|", @CRLF)
            For $j = 1 To $aWords[0][0]
                If $j <> $i Then
                    If $a[$index][$j] Then
                        $aWords[$j][1] += 1
                        ;Delete additional repetition or do comment this section to retain the repetition.
                        ;---------------------------------------------------
                        If $aWords[$j][1] >= $iWR Then
                            Local $1 = _ArraySearch($aNew, $aWords[$j][0], 0, Default, 1, Default, Default, 1)
                            If $1 >= 0 Then
                                _ArrayDelete($aNew, $1)
                            EndIf
                        EndIf
                        ; --------------------------------------------------
                        $aNew[UBound($aNew) - 1][1] &= ", " & $aWords[$j][0]
                    EndIf
                Else
                    $aWords[$i][1] += 1
                EndIf
                $a[$index][$j] = ""
            Next
        Until @error
    Next
    $aNew[0][0] = UBound($aNew) - 1
    Return $aNew
EndFunc   ;==>_a

 

Edited May 3, 2021 by Deye
CleanUp

[JockoDundee]

24 minutes ago, Deye said:

As long as it takes another shot.

Perhaps we could talk about transitioning support?

Btw, love the

Local $s1 = StringRegExpReplace(StringRegExpReplace($s, '\b[^.][^\R]\R', " "), '(\b[^.]+)\R(?=\b[^.]+\.)', "")

 

[Deye]

Yes, This line changed it all, so it was worth updating the code with that and some extra bits.

[vinnyMS]

thank you, both work

[JockoDundee]

1 hour ago, vinnyMS said:

both work

Oh no, @Deye, now he can cross-check

[Deye]

7 hours ago, JockoDundee said:

Oh no, @Deye, now he can cross-check

has the counter-control already advanced ?

Updated the above as it would incorrectly get "enclosed" instances where it should simply be "closed"