[LilLoco]

Я просто глазами всё искал именно упомянутую мнемоническую константу. »

Простите, ввел Вас в заблуждение =(

Можете выложить часть файла »

Да, конечно.

PHP код:

04/10/2012 15:24:23;[GSM Init SM] GSM: Read signal 31 strenght.
04/10/2012 15:24:25;[GSM Init SM] GSM: Read signal 31 strenght.
04/10/2012 15:24:27;[GSM Init SM] GSM: Read signal 31 strenght.
................................. 

Вот так вот выглядит файл.

в принципе, сам формат дата/время поддерживается »

Угу, если делать, опять же, вручную - все работает.

[Iska]

если делать, опять же, вручную - все работает. »

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

Код:

Option Explicit

Const xlDelimited = 1
Const xlDoubleQuote = 1
Const xlNormal = &HFFFFEFD1


Dim strFileNameLog
Dim strFileNameSave

Dim objWorkbook


strFileNameLog  = "E:\Песочница\0196\0002.txt"
strFileNameSave = "E:\Песочница\0196\0002.xls"

With WScript.CreateObject("Excel.Application")
	.Workbooks.OpenText strFileNameLog, 1251, 1, xlDelimited, xlDoubleQuote, _
		False, False, True, False, False, False, False, _
		Array(Array(1, 4), Array(2, 1))
		
	For Each objWorkbook In .Workbooks
		If objWorkbook.FullName = strFileNameLog Then
			With objWorkbook
				.SaveAs strFileNameSave, xlNormal
				.Close
			End With
			
			Exit For
		End If
	Next
	
	.Quit
End With

WScript.Quit 0

— более ничего не менял. Есть один момент: в первом файле даты были в непонятном формате: символ «/» обычно используется в формате даты «MM/DD/YY», а там явно было «DD/MM/YY». Тем не менее, Excel верно их распознал без дополнительных указаний. А в каком формате даты в новом файле?

[LilLoco]

А в каком формате даты в новом файле? »

Формат даты тот же, что и у первого файла «DD/MM/YY».

более ничего не менял »

Да, с приведенными данными работает. Но как только даты достигают значений, например, 25/03/2010 даты перестают обрабатываться, к сожалению

Возможен ли выход из этой ситуации, или же будет необходимо сначала привести дату к виду «MM/DD/YY»?

[Iska]

Возможен ли выход из этой ситуации, или же будет необходимо сначала привести дату к виду «MM/DD/YY»? »

LilLoco, я разобрался:

Код:

	.Workbooks.OpenText strFileNameLog, 1251, 1, xlDelimited, xlDoubleQuote, _
		False, False, True, False, False, False, False, _
		Array(Array(1, 4), Array(2, 1)), , , , , True

[LilLoco]

я разобрался »

А вот мне бы ума не хватило

Iska, Спасибо Вам огромное)

Буду искать, изучать. Так было бы конечно же лучше. »

За это время изучил и приспособил и этот вариант.

Спасибо

[sov44]

Нужна помощь!
Имеется файл 1.xls типа

Код:

11.6308010-10	Амортизатор газовый задней двери "Соболь-Баргузин" Гродно ГАЗ	579

необходимо значение каждой строки первого столба взять в переменную, если переменная найдена в файле 2.xls типа

Код:

Код   13400030   Арт.   3163-10-1101009-00	УАЗ  бак топливн.левый Патриот	5807,50 руб.

сформировать из 2.xls файл 3.xls
файлы http://rghost.ru/53730995

[Iska]

sov44, ткните пальцем, где она найдена?

[sov44]

Iska, в посте выше я показал только структуру файлов. Сами файлы в архиве по ссылке снизу. Пока удалось найти повторы

Код:

451-50-1701022
406.1006260-02
469-1701048
451-50-1701050-10
469-1108030

Перевёл excel в txt и парсю батником второй час. Но батник не вариант, нужен вывод в excel

[Iska]

sov44, непосредственно в Excel или из-под WSH будет ненамного быстрее. Вы ведь ищете 1) по подстроке; 2) всё во всех, т.е. 10894*2496=27191424 сравнений.

[sov44]

Iska, решил задачу батником и ручками.