| Re: Предлагаю публичный эксперимент! ID:17857 ответ на 17820 |
Вт, 14 февраля 2006 12:21 [#] |
|
|
| Цитата: | mialan писал пн, 13 февраля 2006 15:35
Sub proga()
Dim tl
Open "g:\ostrov\100206.txt" For Input As #1 'путь к файлу на локальном диске
For a = 1 To 1000 'зависит от величины файла данных
Line Input #1, tl
y = tl
If y = 0 Then
g = g + 1
Worksheets("list2").Cells(g, 1).Value = 37
GoTo 1
End If
If y > 36 Or y = "" Then GoTo 1
If y < 37 Then
g = g + 1
Worksheets("list2").Cells(g, 1).Value = y
End If
1:
Next a
Close #1
End Sub
Что это и как этим пользоваться? |
Worksheets("list2") Это лист Экселя
1. Создаешь файл экселя, называешь любой лист "list2"
2. Открываешь "редактор Visual Basic", копируешь туда написанный мною код, только меняешь "g:\ostrov\100206.txt" на реальный путь к текстовому файлу спинов Гамбурга на твоем компе.
3. Запускаешь прогу на исполнение
4. Получаешь спины на странице "list2" без текстов и с "0" замененным на "37"
Прим.: прога будет давать сообщение об ошибке из-за несоответствия количества строк в текстовом файле 1000, но делать свое дело исправно.
|
|
|