Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.05.2009, 02:23   #1
kobolok
Пользователь
 
Регистрация: 20.11.2008
Сообщений: 23
Вопрос Вопрос по VB6

Предупреждаю сразу,что не студент,но и программированием никогда раньше не занимался.Такчто сильно не пинать за вопрос.
Сегодня появилась необходимость в простенькой програмке,т.е. есть список IP адресов в чистом виде 70.0.0.198 ,записанных в txt файл,надо на выходе получить ещё один файл со списком,но каждая строка должна быть в виде Radmin.exe/connect:70.0.0.198:4899.Решил попробовать написать на VB6,так каг говорят что он самый лёгкий.

Пробовал:

Dim MyText As String
Dim F As Long

Private Sub Command1_Click()

MyText = ""

F = FreeFile
Open App.Path & "\Справка.txt" For Input As #F
Do Until EOF(F)
Line Input #F, MyText
Loop
Close #F

F = FreeFile
Open App.Path & "\Запись.txt" For Append As #F
Print #F, "Radmin.exe/connect:"; MyText; ":4899"
Loop
Close #F
End Sub

Но не получается поставить цикл Do Until EOF(F)....Loop,чтоб читались все строки

Потом решил попробовать с массивом:

Dim F As Long
Dim x As Long
Dim Mass() As String

Dim MyText As String





Private Sub Command1_Click()

MyText = ""
x = 0
F = FreeFile

Open App.Path & "\Справка.txt" For Input As #F
Do Until EOF(F)
Line Input #F, MyText
x = x + 1
Loop
Close #F
F = FreeFile
Open App.Path & "\Справка.txt" For Input As #F
Do Until EOF(F)
Line Input #F, MyText
ReDim Mass(x) As String
Option Explicit
Option Base 1
Mass(x) = MyText
Loop

Close #F

но уже на этом этапе выдаёт ошибку в Private Sub Command1_Click(),как только объявляю массив.
Если не сложно,объясните популярно или помогите.
Опыт в программировании уже 4 часа.
kobolok вне форума Ответить с цитированием
Старый 27.05.2009, 20:17   #2
SkyM@n
Laravel/Vue expert
Старожил Подтвердите свой е-майл
 
Аватар для SkyM@n
 
Регистрация: 08.08.2007
Сообщений: 2,832
По умолчанию

Еще актуально?
SkyM@n вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как в VB6 получить доступ к содержимому колонок в ListBox'е? AndreyMust19 Помощь студентам 3 21.03.2009 00:06
VB6.0 подскажите начинающему, это очень простой вопрос zxspec Помощь студентам 5 24.02.2009 03:29
VB6. Программа зависает при выполнении. Artinka Помощь студентам 2 03.04.2008 00:06
Импорт VB6 DLL в C++ DmF Общие вопросы C/C++ 1 06.03.2008 08:48