![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 20.11.2008
Сообщений: 23
|
![]()
Предупреждаю сразу,что не студент,но и программированием никогда раньше не занимался.Такчто сильно не пинать за вопрос.
Сегодня появилась необходимость в простенькой програмке,т.е. есть список 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 часа. |
![]() |
![]() |
![]() |
#2 |
Laravel/Vue expert
Старожил Подтвердите свой е-майл
Регистрация: 08.08.2007
Сообщений: 2,832
|
![]()
Еще актуально?
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как в 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 |