Вопрос № 64298: Уважаемые эксперты!
Помогите написать код программы, которая подсчитает все гласные буквы в указанном текстовом файле....Вопрос № 64378: Добрый_День_!
Как открыть файл с текущего каталлога_?
Так открываем явно.
objExcel.Workbooks.Open ("C:RKanPTabShVx.xls")
А как открыть его с любого каталлога_?.(_где установлена_программа_)
С уважнием Алексан...
Вопрос № 64.298
Уважаемые эксперты!
Помогите написать код программы, которая подсчитает все гласные буквы в указанном текстовом файле.
В качестве входного параметра предложенной в приложении функции Glasnykh можно использовать любое выражение, возвращающее текст, в котором нужно считать гласные (кириллицы). (Чтобы считать гласные и латиницы - нужно добавить в строку, присваиваемую переменной Glasnye, соответствующие символы.)
Например в Ворде количество гласных в активном документе:
n = Glasnykh(ActiveDocument.Content.Text)
Соответственно можно, просто открыть нужный текстовый файл в Ворде, и использовать его содержимое в качестве параметра этой функции.
Приложение:
--------- Всякое решение плодит новые проблемы.
Ответ отправил: Genyaa (статус: 9-ый класс)
Ответ отправлен: 26.11.2006, 19:23 Оценка за ответ: 5 Комментарий оценки: Спасибо!
Вопрос № 64.378
Добрый_День_!
Как открыть файл с текущего каталлога_?
Так открываем явно.
objExcel.Workbooks.Open ("C:RKanPTabShVx.xls")
А как открыть его с любого каталлога_?.(_где установлена_программа_)
Отвечает: Макаренко Е.В.
Здравствуйте, Гробенюк Александр Александрович!
Поэксперементируйте вот с этим (из хелпа содрано и подредактировано):
Set fs = Application.FileSearch
With fs
.LookIn = "*"
.Filename = "*.xls"
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
Опорная точка - "LookIn"
Вроде работает...
--------- осторожность, точность... и горит все синим пламенем! :))
Ответ отправил: Макаренко Е.В. (статус: Практикант)
Ответ отправлен: 27.11.2006, 10:24
Отвечает: TT-Topp
Здравствуйте, Гробенюк Александр Александрович!
