| Вопрос: ПОМОГИТЕ, УМИРАЮ!!! | Добавлено: 16.08.02 20:42 |
Автор вопроса:  Nikita | Web-сайт: www.supermm2car.narod.ru
|
| Люди, помогите!!! Нужно из текстового файла, например, 5 строчку прочитать, затем 12, и чтоб номер строчки можно было указывать!!! Помогите, кто сможет!!! Все кто поможет, ОГРОМНОЕ СПАСИБО. |
| Ответы | Всего ответов: 21 |
|
Номер ответа: 1 Автор ответа:  Михаил Вопросов: 5 Ответов: 21 |
Web-сайт: Профиль | | #1 | Добавлено: 16.08.02 21:29 |
|
Все очень просто: 1. Делаеш на форме текстовое поле text1.text и кнопку Command1.command a также текстовое поле text2.text куда и будут данные из файла. 2. Событие кнопки: dim a as integer Open "c:\text.txt" for input as #1 ' Открываем текстовый файл a=0 b=text1.text ' Считываем значение номера строки, которую надо прочитать Do until Eof(1) line input #1, lineoftext$ a=a+1 if a=b then text2.text=lineoftext$ exit do end if loop close #1 Если хочется чтобы считываемые строчки дополнялись к тому что уже считано пишем вместо этого: text2.text=lineoftext$ вот это: oldtext$=text2.text text2.text= oldtext$ & lineoftext$ Вот вроде и все... |
||
|
Номер ответа: 2 Автор ответа:  LIS Вопросов: 7 Ответов: 256 |
Профиль | | #2 | Добавлено: 16.08.02 21:48 |
|
Very , Very nice , Michail ! But where is line Number ? |
||
|
Номер ответа: 3 Автор ответа: LISВопросов: 7 Ответов: 256 |
Профиль | | #3 | Добавлено: 16.08.02 22:01 |
|
Sorry , ignore previously ... Everythink is right !!! |
||
|
Номер ответа: 4 Автор ответа:  DemonICQ: 7026585 Вопросов: 18 Ответов: 96 |
Web-сайт: Профиль | | #4 | Добавлено: 19.08.02 16:47 |
|
Читать файл можно ещё так: Dim file, tmp file = "file.txt" Open file for input as #1 tmp = input(filelen(file), 1) 'V tmp zapisivaetsia chto nahoditsia v faile close #1 |
||
|
Номер ответа: 5 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #5 | Добавлено: 19.09.05 22:34 |
| нифига блин... такого я ещё не видел | ||
|
Номер ответа: 6 Автор ответа: Дмитрий ЩаповВопросов: 71 Ответов: 321 |
Профиль | | #6 | Добавлено: 19.09.05 22:40 |
|
Давайте его убъём Black Dragon'a....
он наверно захотел побить МультиТопик "ээээ"... |
||
|
Номер ответа: 7 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #7 | Добавлено: 19.09.05 23:03 |
| Да, распоясался что то он. | ||
|
Номер ответа: 8 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #8 | Добавлено: 19.09.05 23:05 |
| Может прогу в примеры ему предложить кинуть? Все укать будем. | ||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 20.09.05 00:08 |
Black Dragon, я в принципе спокойно отношусь к спамерам, флудерам, накрутчикам ответов, тестеров на прочность вбнет итп... Но всё же зря ты... и вообще череп тебе подарят... (если уже не подарили 
|
||
|
Номер ответа: 10 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #10 | Добавлено: 20.09.05 03:02 |
|
Мдя... нахулиганил тораисчЪ... Наверное завтра последует наказание, но это завтра...
ЗЫ 2Nikita dim nf as integer dim st as string nf = freefile open filename for binary read as nf st = space(lof(nf)) get nf,, st close nf dim arr() as variant arr = split(st, vbcrlf) msgbox arr(4) msgbox arr(11) |
||
|
Номер ответа: 11 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #11 | Добавлено: 20.09.05 10:52 |
|
Хм... Че то я не совсем этот топик понял. Где тут Black Dragon? Я ни одного его поста не вижу. А вот
Morpheus явно ударился в археологию. Или я что-то пропустил? |
||
|
Номер ответа: 12 Автор ответа:  User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #12 | Добавлено: 20.09.05 11:10 |
| С аккаунта Black Dragon (скорее всего скомпометированного) была осуществленна DoS-атака. Аккаунт заблокирован до выяснения обстоятельств. На адрес провайдера, с IP-адреса которого была осуществленная атака был выслан официальный abuse-запрос. Настоящий владелец аккаунта может связаться со мной по e-mail. | ||
|
Номер ответа: 13 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #13 | Добавлено: 20.09.05 17:01 |
| DoS? По моему просто програмный флуд... или правда были IGMP-пакеты и тп гадость? | ||
|
Номер ответа: 14 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #14 | Добавлено: 20.09.05 17:07 |
| Может и глюк какой. Мне Аутпост каждые 40 минут пишет что с сервака обнаружена DoS-Атака, фрагментированные ICMP. Ну дак вроде уже все мыслимые заплаты поставил... | ||
|
Номер ответа: 15 Автор ответа:  someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #15 | Добавлено: 20.09.05 21:52 |
|
Господа, "хитов: 769"
да и на других темах подозрительно много |
||