<div dir="ltr">


        
        
        
        <style type="text/css">P { margin-bottom: 0.08in; }</style>


<p style="margin-bottom:0in">Trying to use regexp-match to return a
line containing a specified string...</p>
<p style="margin-bottom:0in"><br>
</p>
<p style="margin-bottom:0in">    ;Create fn: find-string.ss. 
</p>
<p style="margin-bottom:0in">    ;Given a file and a find-string. 
</p>
<p style="margin-bottom:0in">    ;Returns a line-string with first
find.</p>
<p style="margin-bottom:0in">    ;The input file has a lot of lines.</p>
<p style="margin-bottom:0in">    ;I am thinking it would be good to
filter all but the line of interest, giving me a one-line string to
work with.  For this reason, I am trying to use regexp-match.</p>
<p style="margin-bottom:0in"><br>
</p>
<p style="margin-bottom:0in">    (define find-string</p>
<p style="margin-bottom:0in">      (lambda (src-file find-string)</p>
<p style="margin-bottom:0in">        (define string-from-file
(file-&gt;string (string-&gt;path src-file)))</p>
<p style="margin-bottom:0in">        ;left off here.</p>
<p style="margin-bottom:0in">        ))</p>
<p style="margin-bottom:0in"><br>
</p>
<p style="margin-bottom:0in">    (find-string &quot;test4.txt&quot;
&quot;figure src=&quot;)</p>
<p style="margin-bottom:0in"><br>
</p>
<p style="margin-bottom:0in">Any suggestions are appreciated. 
Thanks</p>
<p style="margin-bottom:0in">Don Green</p>

</div>