Wyszukiwanie Liczb w txt

[rafcio81802]

Witam jest takie polecenie które "wyjmie" z pliku tekstowego same liczby  a potem zapisze do innego pliku txt ?

­

[Pawellek]

Test1()

Func Test1()

Local $TestFileIn = @ScriptDir & "\testinput.txt"

Local $TestFileOut = @ScriptDir & "\testoutput.txt"

Local $TestInput = FileRead($TestFileIn)

Local $TestOutput = StringRegExpReplace($TestInput, "\D", "")

FileWrite($TestFileOut, $TestOutput)

EndFunc ;==>Test1

[rafcio81802]

a jeszcze mam pytanie czy można było by odczytać z notatnika  każdy punkt dodać go i wyświetlić sumę  w msgbox ?

 

Notatnik :

1.1pkt
2.1pkt
3.1pkt
4.1pkt
5.1pkt
6.2pkt
7.2pkt
8.3pkt
9.3pkt

[Pawellek]

Z otwartego notatnika chyba nie, ale jak zapiszesz do pliku to juz bez problemu.

Ja bym to zrobil tak:

#include <File.au3>

Test1()

Func Test1()
    Local $TestFile = @ScriptDir & "\test.txt"
	Local $fOpen = FileOpen($TestFile)
	Local $suma = 0
	For $i = 1 To _FileCountLines($TestFile) Step 1
		$split = StringSplit(FileReadLine($fOpen, $i),".")
		$suma += StringRegExpReplace($split[2], "\D", "")
	Next
	MsgBox(0,"", $suma)
EndFunc   ;==>Test1

[rzogerzg]

a tak przy otwartym notatniku

local $wynik
$dane=ControlGetText("[CLASS:Notepad]","","Edit1")
$liczby=StringRegExp($dane,"\d*\.(\d*)pkt",3)
For $x In $liczby
	$wynik+=$x
	Next
MsgBox('','',$wynik&" pkt")

[rafcio81802]

­a jak mam takie coś ? 

------------------------------------       
1 zad - 3 pkt 
3 zad - 3 pkt          
3 zad - 0 pkt 
------------------------------------       
1 zad - 1 pkt 
3 zad - 2 pkt          
3 zad - 0 pkt 
------------------------------------       
1 zad - 3 pkt 
3 zad - 4 pkt          
3 zad - 1 pkt 
------------------------------------       
1 zad - 2 pkt 
3 zad - 3 pkt          
3 zad - 2 pkt 
------------------------------------       
1 zad - 1 pkt 
3 zad - 1 pkt          
3 zad - 0 pkt 
------------------------------------       

[rzogerzg]

wystarczy zamienić zmienną $liczby na takie coś

$liczby=StringRegExp($dane,"\W(\d*)\Wpkt",3)

[rafcio81802]

­a co znaczy to W

[Pawellek]

Wszystko masz w dokumentacji.

https://www.autoitscript.com/autoit3/docs/functions/StringRegExp.htm

\W - Matches any non-word character.