каждый раз создавать новый(для каждого txt-файла свой csv)

Да, может этих текстов много в папке и надо просто тупо перебрать все и напарсить csv?

Вот моё, код vbs - сохранить как *.vbs.  
Файлы пока не перебирает.  
Пути подрпавьте под свои.  
 
Sub parser_()  
Dim countline As Long  
Dim objFSO  
 
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Const ForReading = 1  
Const ForWriting = 2  
 
'# Диалог открытия файла  
 
If objFSO.FileExists("C:\temp\Natalija\пример.txt") Then  
  Set objTextFile = objFSO.OpenTextFile("C:\temp\Natalija\пример.txt", 1)  
Else  
  '# Диалог открытия файла  
  Set objDialog = CreateObject("UserAccounts.CommonDialog")  
  objDialog.Filter = "TXT Files|*.txt|All Files|*.*"  
  objDialog.FilterIndex = 1  
  objDialog.InitialDir = "C:\temp\Natalija\"  
  intResult = objDialog.ShowOpen  
  If intResult = 0 Then Wscript.Quit  
  Set objTextFile = objFSO.OpenTextFile(objDialog.Filename, ForReading)  
End If  
 
Set objFile = objFSO.CreateTextFile("C:\temp\Natalija\test.csv")  
objFile.Close  
Set objFile = objFSO.OpenTextFile("C:\temp\Natalija\test.csv", ForWriting)  
 
Do Until objTextFile.AtEndOfStream 'пока не кончился файл  
 strNextLine = objTextFile.Readline 'читаем посторочно  
countline = countline + 1  
Select Case countline  
Case 1: objFile.WriteLine "Дата отчета;Наименование отчета;Дата подписи;Адрес;Наименование прибора;Дата закупки;Стоимость"  
Case 3: dataotceta = Mid(strNextLine, 4, 10)  
Case 4: naimen = Trim(Mid(strNextLine, 14, 100))  
Case 5: data = Mid(strNextLine, 7, 10)  
Case 6: adres = Trim(Mid(strNextLine, 8, 100))  
Case Is > 10  
If Len(strNextLine) = 0 Then Exit Do  
If Left(strNextLine, 1) <> "_" And Left(strNextLine, 1) <> " " Then  
pribor = Trim(Left(strNextLine, InStr(strNextLine, "|") - 1))  
datazakupki = Trim(Mid(strNextLine, InStr(strNextLine, "|") + 1, 11))  
stoimostj = Trim(Mid(strNextLine, InStr(strNextLine, "|") + 17, 20))  
stoimostj = Replace(stoimostj, "|", "")  
objFile.WriteLine dataotceta & ";" & naimen & ";" & data & ";" & adres & ";" & pribor & ";" & datazakupki & ";" & stoimostj  
End If  
End Select  
Loop  
objFile.Close  
 
End Sub

{quote}{login=Hugo}{date=04.08.2010 04:20}{thema=}{post}Вот моё, код vbs - сохранить как *.vbs.  
Файлы пока не перебирает.  
 
End Sub{/post}{/quote}  
 
Спасибо тебе большое!

{quote}{login=The_Prist}{date=04.08.2010 03:56}{thema=}{post}Держите.{/post}{/quote}  
 
Спасибо тебе большое!  
Расшифруй, пожалуйста! Сообщение было написано ранее.

Спасибо вам, ребята, большое!  
 
Дмитрий, подскажи, пожалуйста!  
 
А как прописать условие для столбцов покупка-продажа?  
Условие:  
просматриваем напротив товара (например, принтер)два столбца (покупка и продажа),если в одной из двух ячеек встречается цифра, отличная от нуля или пустой ячейки, то в переменную TipOperacii в столбец 9 записываем название столбца (покупка или продажа), в котором найдено это значение,    
 
а само значение записываем в столбец 10 в переменную Kolvo    
т.е. Cells(lLastRow, 10) = Kolvo  
 
В столбец 11 записываем сумму значений ячеек столбцов Покупка и продажа  
 
 
Помоги, пожалуйста, разобраться в этом!

и как захватить данные после таблицы?

Дим, прости меня!  
Просто вчера была одна задача и один вид отчета, сегодня он модернизировался и я запуталась, появилась задача не только просто вытащить данные, но и реализовать условие.  
 
Прости меня, я больше не буду. НЕ ругайся , пожалуйста!  
Мне нужна твоя помощь, мне очень нужно разобраться!

Да, и ";Наименование отчета;" вообще больше нет...

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

Вот тут непонятно, хотя догадываюсь:  
sss Комиссия Общая комиссия  
1929.95 39.37 11.85  
равна сумме значений столбцов "Комиссия1" и  "НДС"

Забыл об особенности форума - там в коде после "Директор " пробелов побольше, с запасом :)

Такой вариант я подозревал, но не рассматривал. В следующий раз давайте пример с по возможности всеми возможными вариантами. Надо подумать...

Вот пример  
 
А можно ли, чтобы он еще в столбцы N, O, P записывал разделяя название предмета, то есть, в N - писал первое слово (принтер), в столбец O  - Липецкой обл.34004 до запятой и в P - то, что после запятой. А в столбец R константу "0" (ноль)