Здравейте,
Опасявам се, че задачата не е толкова проста, ще ви разбера, ако нямате възможност да помогнете, но все пак да опитам, ако някой е правил подобно задание.... и няма да му е проблем да помогне
Много търсих из нета ,но не намерих пример за извличане само на определени символи от текстови файлове

Задачата е следната
От папка D\AIR\" която съдържа AIR_2054.TXT
AIR_2055.TXT
AIR_2056.TXT и т.н

Периодично да се извличат данни в ексел D\AIR\report.xls , всички текстови файлове който започват с "AIR",но не целите файлове, а:
линия(ред) 1- 11,2 /от11символ 2символа, сиреч 12,13
линия(ред) 3- 1,35/първите 35 символа/
линия(ред) 4- 1,33/първите 33 символа/
линия(ред) 5- 43,7/след 43символ 7символа/
и т.н
Като данните от 1 файл се записват в един ред в ексел/от линия 1 в колона "A" от линия 3 в колона"B" и т.н .Данните от следващия файл отиват на 1-я празен ред и т.н
След като свърши извличането в ексел, обработения текстови файл да се преименува /например :BIR_2054.TXT, за да се знае, че е импортиран и да минава на следващия "AIR*"

Моля, да ме извините, и игнорирате, ако искам прекалено много:-)

А ако случайно някой може да ми помогне, ще реши задача с която се боря от години :-)

Предварително благодаря за вниманието
Теди

Уточни:
1.Имената на текстовите файлове винаги ли са едни и същи?
2.Тези данни, дето са в текстовите факлове - от всеки текстов файл на едно и също място ли са?
3.Възможно ли е да ги има и двата файла AIR_2054.TXT , BIR_2054.TXT във папката? И ако ДА - какво да става (припокриване, нищо да не се прави), след като се намери файла?

по принцип обхождането на файлове може да бъде нещо подобно на:

Dim AIRFolder As String, AIRFile As String, BIRFile As String
AIRFolder = "D:\AIR"
AIRFile = Dir(AIRFolder & "\AIR_*.txt")
Do While AIRFile <> ""
'тука си обработваш файла и го преименуваш
Loop


пиши какво още те притеснява? преименуването или извкичането на определени данни от текстовия файл

Редактирано от БaтиГoгo на 11.06.13 07:11.

Здравей Гого:-)
Много благодаря за отделеното време!

Аз не споменах в предния пост, че почти нямам понятие от VBA, правила съм си няколко неща, но като "плагиатствам" намерените в нета кодове и знанията ми стигат само да променя нещо малко:-( Но съм фен!

1.Имената на текстовите файлове са различни, но започват винаги с "AIR_
2. Да, на едно и също място са
3.Идеята с преименуването на BIR е , да се знае че от този файл вече са извлечени данните , а той си стой за други цели там / В смисъл когато в папката се появи файл AIR_* тогава се извличат данните от него

Главното с което не мие по-силите е извличането на точно определените данни!

Редактирано от teoiva на 11.06.13 14:14.

значи си имаме една задачка (проект), който трябва да бъде изпълнен. Добре е да бъде разбит на подзадачи. Така всяка да се разглежда поодделно и после да се "сглобят" в едно цяло.
така като гледам при тебе разбивките са следните:
1.Обхождане на всички файлове от папката в цикъл (по-горе е вариант някакъв)
2.В цикъла изчитане на файла и натрупване в ЕКСЕЛА.
3.Преименуване на файла

До колкото разбирам на тебе основният проблем е в т.2?
За да го решиш, стъпките са следните:
2.1.Отваряне на файла
2.2.В цикъл четене на ред по ред от файла (до край)
2.3.Обработка на съответния ред (кой номер ред - кое и къде да отиде)ю
2.4.Край на цикъла
2.5.Затваряне на файла

Този е принципа на какъвто език да е написано тва (не само на Базика)

Дай до тука мнение и ще продължим нататъка...

В отговор на:

---

А ако случайно някой може да ми помогне, ще реши задача с която се боря от години :-)

---

Съдържаниет е скрито
Влезте за да го видите

WQW ,не разбирам точно какво искаш да кажеш с поста си

Истината е, че това ми трябва служебно за да си улесня работата, но за жалост фирмата ни няма възможност да плати за направата на подходящия софт и за това се бъхтя самичка и тормозя вас:-))) Пък и ми е интересно де.. така се уча

Редактирано от teoiva на 11.06.13 18:34.

БатиГого
Точно това ми трябва!
То има и още неща, но ако до тука видя как се прави ще се справя с останалото


Наистина оценявам желанието да помогнеш!
Мерси

Редактирано от teoiva на 11.06.13 18:36.

1.За отваряне/затваряне на файл командите са OPEN и CLOSE
2.За "въртене" на цикъл FOR , WHILE
3.За четене ред от файл READ
4.За отделяне на подстринг от цял стринг - MID

Има няколко начина да ги разучиш:
1.Отваряш си базиката ексела (ALT+F11). пишеш нейде командата. Слагаш курсора на нея нейде. И CTRL+F1 и четеш в прозорчето каквото пише.
2.С браузера отваряш някоя търсачка (напр. www.google.com) в кутийката пишеш командата. Чукваш едно празно и дописваш EXAMPLE VBA. Цък ЕНТЕРА и четеш
3.Книжле за базика от книжарницата
4.Курс по програмиране на VBA
5....

Ади пиши ако нещо не е ясно. Добре е да copy/paste това дето си пробвала тука и да обясниш къде точно и каква грешка, кога дава...

Наистина, за това време дето писах тея постове, щях да надраскам примерен код и да й го пратя по мейла.Но смятам, това за "мечешка услуга". Убедил съм се през годините, че е много по-добре за питащия е да се даде тласък, а той сам да направи 99% от нещата (е... може и 80% напр.)
Разбира се,че има и много (предимно студенти / ученици), дето искат да им напише някой задачата , да я покаже на даскала. (той естественно си затваря очите) и да "вземе" изпита..
Такива се познават, по ясно поставената задача (все пак я преписва от листа дето му е дал даскала)...

БатиГого, ти ме разби..
Толкова въпроси и разяснения за да ме пратиш в google:-((( където съм била и явно не съм се справила с намиране на нужното ми инфо след като плача за помощ тук..
Нямам за цел да ставам програмист или нещо подобно..