<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; AHK: Копирование строки с найденным текстом]]></title>
		<link>https://forum.script-coding.com/viewtopic.php?id=9968</link>
		<atom:link href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=9968&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «AHK: Копирование строки с найденным текстом».]]></description>
		<lastBuildDate>Sat, 13 Sep 2014 20:45:11 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[Re: AHK: Копирование строки с найденным текстом]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=86438#p86438</link>
			<description><![CDATA[<p>Вопрос закрыт, спасибо <a href="http://forum.script-coding.com/profile.php?id=27879"><strong>serzh82saratov</strong></a></p><div class="codebox"><pre><code>
incsv := &quot;C:\Find_IP\input.csv&quot;
outcsv := &quot;C:\Find_IP\output.csv&quot;

FileDelete, %outcsv%
ip := GetIP()
Loop, Read, %incsv%
{
    IfInString, A_LoopReadLine, %ip%
    FileAppend, %A_LoopReadLine%, %outcsv%
}
Return

GetIP() 
{
    URLDownloadToFile, http://www.netikus.net/show_ip.html, file
    FileRead, IP, file
    FileDelete, file
    Return IP
}
</code></pre></div><p>На моей системе после удаления файла нужно было дописать небольшую задержку для корректной работы скрипта, но Сергей предложил более изящное решение:</p><div class="codebox"><pre><code>
#SingleInstance Force    
#NoEnv

incsv := &quot;C:\Find_IP\input.csv&quot;
outcsv := &quot;C:\Find_IP\output.csv&quot;

ip := GetIP()

Loop, Read, %incsv%
{    
  IfInString, A_LoopReadLine, %ip%  
  File := FileOpen(outcsv, &quot;w&quot;), File.Length := 0, File.Write(A_LoopReadLine)
}
File.Close()
Return
 
GetIP() 
{
    URLDownloadToFile, http://www.netikus.net/show_ip.html, file
    FileRead, IP, file
    FileDelete, file
    Return IP
}
</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (Ivan Born)]]></author>
			<pubDate>Sat, 13 Sep 2014 20:45:11 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=86438#p86438</guid>
		</item>
		<item>
			<title><![CDATA[AHK: Копирование строки с найденным текстом]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=86418#p86418</link>
			<description><![CDATA[<p>Я безусловно нашел много тем с похожей проблемой, но, очевидно в виду низкой компетентности, не могу заставить скрипт работать.</p><p>Есть 2 .csv файла, допустим input.csv и output.csv. Первый содержит строки типа:</p><p>20140911094441,,kadede@hotmail.com,z67jCp7p,Inever,Inever432,Liam,Norton,Leonard,27,Tom Kelly rd,Dublin,2,14780634,13,2,1991,430685,81.171.97.143</p><p>Нужно получить свой внешний IP и выполнить поиск этого адреса в файле input.csv, затем скопировать всю строку содержащую найденный IP в output.csv или показать сообщение о том, что такого адреса не найдено.</p><p>Я пришел к этому коду, но, к сожалению, после запуска скрипта ничего не происходит. </p><div class="codebox"><pre><code>
incsv := &quot;C:\Find_IP\input.csv&quot;
outcsv := &quot;C:\Find_IP\output.csv&quot;

FileDelete, %outcsv%
ip := GetIP()
Loop, Read, %incsv%, %outcsv%
{
    IfInString, A_LoopReadLine, %ip%, FileAppend, %A_LoopReadLine%`n
}

GetIP() 
{
    URLDownloadToFile, http://www.netikus.net/show_ip.html, file
    FileRead, IP, file
    FileDelete, file
    Return IP
}
</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (Ivan Born)]]></author>
			<pubDate>Fri, 12 Sep 2014 19:13:32 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=86418#p86418</guid>
		</item>
	</channel>
</rss>
