Подсчитать кол-во строк в файле и перескочить на др. label

[zusicks438]

Есть файл последовательного доступа, в котором есть N строк. Нужно сделать так, чтобы:

1. Программа считывает кол-во строк в файле и записывает в переменную (N).
2. Если N меньше 20 (предположим), выводим весь файл в Label1.
Если N больше 20, 20 строк файла мы выводим в Label1, а ОСТАВШИЕСЯ уже в Label2 (если можно, то и чтоб в Label3 тоже можно было вывести, а то вдруг остаток больше, чем 20 получится )

Заранее огромное спасибо всем!

[Хакер]

И?

[zusicks438]

И все! Цикл завершается, а информация отображается в разных Label - не более, чем по 20 строк в каждом. Если в файл добавляем новую информацию, она также должна добавиться по этому правилу.

[Хакер]

А. Ну тогда мы все рады за тебя. За то, что тебе нужно сделать так. И за то что цикл завершается.

Ты этого от нас хотел, чтобы мы за тебя все дружно порадовались? Или, может быть, чего-то другого?

[Viper]

zusicks438, что тебе надо мы поняли, а вот что тебе нужно от посетителей форума? Что не получается? Как пробовал сделать?

[SLIM]

Да не, человек хочет чтобы мы ему код написали. Гы, тогда в работу его...

[zusicks438]

Просто прога очень быстро меняется. Теперь волнует уже другой вопрос.

Есть TextBox, свойство ScrollBar = True. Нужно вывести из файла посл. доступа данные, которые записаны способом Print.

В одной строке файла 2 параметра - ну, как в словаре, например:

Слово1 Слово2
Слово3 Слово4
и.т.д.

И нужно, чтобы данные ПОСЛЕ пробела (т.е. с номерами 2 и 4 в данном случае) можно было скрыть. Причем, скрыть ВЕСЬ столбец, т.е. с слова индексами 2, 4, 6, 8, и.т.д.

Данные то я вывел, пробел прописал, а как скрыть ВЕСЬ столбец. Тут уже как-то на автомате надо, ведь не знаешь, что дальше записывать будут в файл.

Помогите, плззз.

[Viper]

zusicks438, еще раз для непонятливых: в чем проблема то? Что не получается? Что предпринято для решения задачи?

[zusicks438]

Да ничего. Я просто не знаю, как это сделать. Тема вроде не только для тех, "круче кого только яйца", но и для новичков. Захожу на форум, смотрю - народ иногда и код если что подкинет и совет даст. А я тут еще книгу купил, "VB на практике" называется. Там в предисловии написано, что деньги пойдут на улучшение сайта, поддержку сообщества VB-программистов и.т.д. Но, видимо меня в этом сообществе как-то не особенно приняли.

По-моему я еще в первом сообщении довольно ясно выразился.

[iGrok]

А тут есть два варианта.

Либо ты начинаешь разбираться и что-то делать сам. И когда это что-то не получается - спрашиваешь. Тогда тебе подсказывают.

Либо ты кидаешь объёвление в раздел "Работа". Упоминая, что это "за так". Может, кто и возьмётся..

А пока ты достаточно чётко написал, что тебе нужно. Но при этом не написал с чем именно у тебя возникла проблема. Поэтому возникает (и мне кажется, вполне справедливо) ощущение, что ты не хочешь разбираться как и что, а хочешь просто чтобы за тебя сделали.
При этом действия необходимые для решения твоей задачи настолько элементарны, что находятся поиском по форуму / гуглю в два счёта.
Естественно, никто не хочет впустую тратить своё время(а у большинства присутствующих оно стоит недёшево) на решение элементарной и неинтересной задачи уровня информатики 10-11 класса..

Начни разбираться и делать что-то сам и тебе помогут.

UPD: По второй задаче - скрывать второй столбец надо не после отображения текста в текстбокс, а до. Т.е. при чтении файла.
Ищешь в строке пробел и отрезаешь всё, что после него.

[zusicks438]

А как в ListBox прописать новую информацию? В TextBox это делается так:
Text1.Text = "Новый текст"
А в ListBox как? Именно не ДОБАВИТЬ, а ЗАМЕНИТЬ. Или просто очистить.

[MIT]

Очистить - ListBox.Clear
ListBox.RemoveItem - удалить по индексу
ListBox.List - изменить по индексу

[[LEV&n]]

А как в ListBox прописать новую информацию? В TextBox это делается так:
Text1.Text = "Новый текст"
А в ListBox как? Именно не ДОБАВИТЬ, а ЗАМЕНИТЬ. Или просто очистить.

Вот элементарный пример решения твоей задачи:

Код: Выделить всё

Dim b As String
Open "file" For Input As #1
Do While Not EOF(1)
Input #1, b$
List1.AddItem b$
Loop
Close

Количеством строк всего файла будет являться List1.listcount при этом файл будет считываться построчно и "," будет опрделяться переводом строки..

Заменить любую строку в листе проще простого List1.List(List1.Listindex [или значение Integer'a] ) = "Новая строчка"
В первом случае тебе предстоит выбрать строку в листе или назначить Listindex=0 или любой строке, во втором переменная подставит значения индекса из своего тела, учти то, что Listindex, так же как Integer не должны превышать значение Listcount-1 (минус 1) а это оправдывается тем, что первое число, обрабатываемое Listindex = 0, У Listcount оно равно 1

[zusicks438]

Спасибо, все понятно! А где скачать (посмотреть) MSDN? А есть документация на русском?

Возможно ли сделать так, чтобы вводилось слово, потом производился его поиск в ListBox и строка с этим словом выделялась?

[[LEV&n]]

можно с помощью api как конкретно не знаю, поищи по форуму

[Debugger]

Вот пример. Просто и понятно.

[dr.MIG]

Но не совсем оптимально.
Чтобы почувствовать разницу, измени свою процедуру Form_Load на

Код: Выделить всё

Private Sub Form_Load()
    For i = 0 To 4000
        lst.AddItem "123"
        lst.AddItem "1234"
        lst.AddItem "234"
        lst.AddItem "2345"
        lst.AddItem "345"
        lst.AddItem "456"
        lst.AddItem "абв"
        lst.AddItem "вгд"
    Next
    lst.AddItem "666"
End Sub


Попробуй ввести "666". И теперь тоже самое, только оптимально:

[zusicks438]

ОГРОМНОЕ всем спасибо, оказывается все не так уж и сложно.

[zusicks438]

Черт, у меня проблема. При запуске программы на другом компьютере вылетает ошибка 339: Component "COMCTL.OCX" or one of its dependencies not correctly registered: a file missing or invalid.

Набрал на своем компе в поиске по диску C:\ этот COMCTL.OCX, он нашел файл MSCOMCTL.OCX в папке system32.

Что мне делать? Примечательно, что он также нашел этот файл в папке еще одной программы, т.е. она его тоже использует.
Как можно решить проблему?
Прописать этот файл в system32? Или надо что-то другое делать? Подскажите...

[dr.MIG]

Лучший вариант -- создать установочный дистрибутив.

[zusicks438]

Так что с ошибкой делать? С файлом этим...OCX Куда его девать?

В проекте нашел такие строки:

Type=Exe
Form=frmStart.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX

Это что значит?

[Хакер]

Тебе сказали что делать: распространять программу не абы как, а в установочном пакете.

[zusicks438]

И всё? А этот файл .OCX в установочный архив надо пихать?

[dr.MIG]

Обычно инсталлятор сам находит зависимости программы и сам добавляет нужные файлы, а кроме того предоставляет возможность добавить любые другие файлы в установочный пакет. А пихать тут не надо .

[zusicks438]

OK, все понял!

[zusicks438]

А архив создавать через VB Package & Deployment Wizard?

[dr.MIG]

Можно через него. Можно через другие -- InnoSetup, InstallShield, Wise и т.д. Если поискать по форуму, то можно найти много тем, посвящённых данному вопросу.

[zusicks438]

Срочно подскажите, плиззз! Создал уст. архив через Бейсиковский package, ну он все эти файлы библиотек нашел, добавил, все дела. А потом при установке говорит:

Invalid строка такая вот в файле SETUP.LST:
File1=@COMCTL32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),6.24.98 12:00:00 AM,609584,6.0.80.22
Че делать??? В принципе, у меня этот файл в системе уже есть, может, поэтому?
Пожскажите, плиззз. Пробовал через ИнноСетап, но он не проект, а уже готовый ехешник требует, это не то.

[alibek]

При создании дистрибутива укажи американскую локаль.

[bashobn]

Блин! Не парься с vbшным инсталлятором. Делай через rar.sfx архивацию и не парься. Проще намного. А насчет comctl-ов и прочих Сомпонентов, копируй файлы из своей windows\system32\ в ту машину, куда ставишь прогу.