[Iska]

Как-то не дочитал:

p.s. желательно с примерами. »

читать дальше »

Код:

AutoItSetOption("MustDeclareVars", 1)

Local Const $adOpenStatic = 3
Local Const $adLockOptimistic = 3
Local Const $adCmdText = 1

Local $sPathToSchema = "E:\Песочница\0365"
Local $sSourceFile   = "0001.txt"

Local $oRecordSet = ObjCreate("ADODB.Recordset")

If Not FileExists($sPathToSchema & "\") Then
	ConsoleWrite("Folder [" & $sPathToSchema & "] not found." & @CRLF)
	Exit(1)
EndIf

If Not FileExists($sPathToSchema & "\" & $sSourceFile) Then
	ConsoleWrite("Source file [" & $sSourceFile & "] not found." & @CRLF)
	Exit(2)
EndIf

CreateSchema($sPathToSchema & "\Schema.ini", $sSourceFile)

$oRecordSet.Open( _
		"SELECT TOP 1 [Name], COUNT(*) AS [Count] " & _
		"FROM [" & $sSourceFile & "] " & _
		"GROUP BY [Name] " & _
		"ORDER BY COUNT(*) DESC", _
		"Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & $sPathToSchema & "';Extended Properties=""text;""", _
		$adOpenStatic, $adLockOptimistic, $adCmdText _
	)

ConsoleWrite("Name:  " & $oRecordSet.Fields.Item("Name").Value & @CRLF)
ConsoleWrite("Count: " & $oRecordSet.Fields.Item("Count").Value & @CRLF)

$oRecordSet.Close
$oRecordSet = 0

RemoveSchema($sPathToSchema & "\Schema.ini")

Exit(0)
;=============================================================================

;=============================================================================
Func CreateSchema($sFullPathToSchemaIni, $sSourceFile)
	If FileExists($sFullPathToSchemaIni) Then
		FileDelete($sFullPathToSchemaIni)
	EndIf

	Local $hFile = FileOpen($sFullPathToSchemaIni, 2)

	FileWriteLine($hFile, "[" & $sSourceFile & "]")
	FileWriteLine($hFile, "ColNameHeader=False")
	FileWriteLine($hFile, "Format=Delimited( )")
	FileWriteLine($hFile, "TextDelimiter=none")
	FileWriteLine($hFile, "DateTimeFormat=dd.mm.yyyy")
	FileWriteLine($hFile, "CharacterSet=ANSI")
	FileWriteLine($hFile, "Col1=Date date")
	FileWriteLine($hFile, "Col2=Time char")
	FileWriteLine($hFile, "Col3=Name char")

	FileClose($hFile)

 	FileSetAttrib($sFullPathToSchemaIni, "+H")
EndFunc
;=============================================================================

;=============================================================================
Func RemoveSchema($sFullPathToSchemaIni)
	If FileExists($sFullPathToSchemaIni) Then
		FileDelete($sFullPathToSchemaIni)
	EndIf
EndFunc
;=============================================================================

Результат:

читать дальше »

Код: Name: user2 Count: 6

P.S. Хорошо бы образец реального файла.