Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Файлы / 25 сообщений из 30, страница 1 из 2
  1  все
30.05.2007, 20:43
    #34562666
Obana
Obana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
Брат попросил помочь. Открыть файл данных F.dat и посчитать количество вхождений "а" в заданном тексте. Помогите пожалуйста, в VBA (и вообще в бейсике ypriamii.gif ) не в зуб ногой. Если кто поможет, то желательно выложить всю прогу, т.к. у меня нет этого VBA blush.gif
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 10:15
    #34563397
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
Ну что ж, для начала вам нужно купить Microsoft Office. Например, Home and Student за 3000 рублей. А вот после этого мы будем учиться VBA...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 10:20
    #34563420
JaneDoe
JaneDoe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
Ну или пиратку... за 60-100 р )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 13:51
    #34564622
Obana
Obana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
Если так, то у меня есть MS Office. Что дальше. Помогите плиз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 13:55
    #34564641
JaneDoe
JaneDoe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
ALT+F11
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 14:55
    #34564831
Obana
Obana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
А если серьезно, кто нибудь поможет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:02
    #34564860
JaneDoe
JaneDoe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
а с чего брат просил помочь, если вы в бэйсике не разбираетесь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:13
    #34564919
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
Сдается мне поможет поиск (кстати F1 в офисе тоже можно понажимать) по таким словям
OPEN
RANDOM
FILELEN
А также FOR NEXT, DO UNTIL LOOP.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:16
    #34564928
Obana
Obana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
А с того, что я немного знаю паскаль (здесь все просто: считываем файл в строку, а потом функцией pos(s1,s2) отслеживаем вхождения s1 в s2), а ему кажется, что это все одна фигня. Ему препод сказал, что, если он это сделает, то ему 4 поставит
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:28
    #34564986
lena_####
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
Obana

Попробуйте так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub s_01()
  Dim v_FSO As Object, v_RegExp As Object
  Dim v_File As String, v_Str As String
  Dim v_MatchesCount As Long
 
  Set v_FSO = CreateObject("Scripting.FileSystemObject")
  Set v_RegExp = CreateObject("VBScript.RegExp")
  
  v_File = "<путь к файлу>"
  v_Str = v_FSO.OpenTextFile(v_File,  1 ).ReadAll
  
  With v_RegExp
    .Pattern = "a"
    .Global = True
    v_MatchesCount = .Execute(v_Str).Count
  End With
  
  MsgBox "Найдено " & v_MatchesCount & " символов"
  
  Set v_FSO = Nothing
  Set v_RegExp = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:33
    #34565019
JaneDoe
JaneDoe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
сдается мне за такой вариант не поставят 4, а засыпят вопросами =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:37
    #34565047
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
JaneDoeсдается мне за такой вариант не поставят 4, а засыпят вопросами =)
Зато как красиво получилось! Любо-дорого глядеть!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:37
    #34565049
Obana
Obana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
lena_####
Пишет Bad file nanme or number. Путь вводил C:\F.dat
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:42
    #34565073
lena_####
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
Obana

Покажите строку:
Код: plaintext
  v_File = "<путь к файлу>"
что там у Вас?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:47
    #34565096
Obana
Obana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
lena_#### Obana

Покажите строку:
Код: plaintext
  v_File = "<путь к файлу>"
что там у Вас?

v_File = "<C:\F.dat>"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:48
    #34565104
Obana
Obana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
Прошу прощения. Ступил. Спасибо большое
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:48
    #34565105
JaneDoe
JaneDoe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
<>
лишние
v_File = "C:\F.dat"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:49
    #34565109
Obana
Obana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
Еще раз всем спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 15:50
    #34565118
JaneDoe
JaneDoe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
только я уверен что таким кодом подставишь брата, вобщем расскажешь чем дело кончилось =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 16:09
    #34565226
Obana
Obana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
А почему подставлю? Ок, расскажу. сдавать он будет завтра
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 16:16
    #34565256
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
Потому что если препод по информатике сам пишет программки он увидит что код создавался человеком который пишет давно и серъезно, а не простой школьник-студент которому нужно просто сдыхаться от лабы... ВОТ!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 16:22
    #34565303
Obana
Obana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
Ну вроде я все понял, только прокомментируйте пожалуйста эти строки
Код: plaintext
1.
Set v_FSO = CreateObject("Scripting.FileSystemObject")
  Set v_RegExp = CreateObject("VBScript.RegExp")

и эти
Код: plaintext
1.
Set v_FSO = Nothing
  Set v_RegExp = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 16:22
    #34565305
JaneDoe
JaneDoe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
В *стандартном* бы варианте не было бы ни fso ни scripting =)
но согласен - красиво =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 16:26
    #34565335
JaneDoe
JaneDoe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
почитай тут про *типический* вариант
там про работу с файлами
http://kbyte.ru/Articles/ShowArticle.aspx?id=13
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2007, 21:42
    #34566246
Obana
Obana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы
JaneDoe, ходил по ссылке. На том же сайте нашел это
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
'nasGetCharCount(strText, strFindChar)
'где strText - текст, в котором ведется поиск;
'strFindChar - искомый символ
Public Function nasGetCharCount( _
       ByVal strText As String, _
       Optional strFindChar As String = " ") _
       As Long
  Dim gccArray() As String
  If strText = vbNullString Then  
    nasGetCharCount =  0 : Exit Function
  End If
  gccArray = Split(strText, strFindChar)
  nasGetCharCount = UBound(gccArray)
End Function

Тока не догнал. Объясните плиз
И за одно вот это тоже Set v_FSO = CreateObject("Scripting.FileSystemObject")
Set v_RegExp = CreateObject("VBScript.RegExp")


и эти

Set v_FSO = Nothing
Set v_RegExp = Nothing

PS Че то меня это зацепило, хочется разобраться
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Файлы / 25 сообщений из 30, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 373ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2163916]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 218ms
total:  373ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]