Что нового

Подсчитать одинаковое кол-во дней (по формату DD.MM.YY) из списка

sforce5

Олл фо ЛулзЪ
Сообщения
160
Репутация
41
Список примерно таков:

01.02.09
09.12.09
05.01.09
01.02.09
05.01.09

Как убрать повторяющиеся даты и подсчитать кол-во неодинаковых дней?
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
sforce5
У меня так убирает повторяющиеся даты. В первой строке 2.txt - кол-во оригинальных дат.
Код:
#include <File.au3>
#include <Array.au3>
Dim $aOld, $aNew[1]
$count = 0
$fileOld = "1.txt"
$fileNew = "2.txt"
_FileReadToArray($fileOld, $aOld)
For $i = 1 To UBound($aOld) - 1
	$er = _ArraySearch($aOld, $aOld[$i])
	If $er = $i Then
		_ArrayAdd($aNew, $aOld[$i])
		$count += 1
		$aNew[0] = $count
	EndIf
Next
_FileWriteFromArray($fileNew, $aNew)
 

amel27

Продвинутый
Сообщения
146
Репутация
55
Код:
ConsoleWrite(_StringDistinct(FileRead("C:\TEST\1.txt")) &@CRLF)

Func _StringDistinct ($sTxt)
	Local $sRes = @CRLF, $aTxt = StringSplit($sTxt, @CRLF, 1)
	For $i=1 To $aTxt[0]
		If StringInStr($sRes, @CRLF& $aTxt[$i] &@CRLF)=0 Then $sRes&= $aTxt[$i] &@CRLF
	Next
	Return StringStripWS($sRes, 3)
EndFunc
 
Верх