Как считать с текстового файла текст построчно в combobox?

@Lander13 · Регистрация: 03.10.2012

Студворк — интернет-сервис помощи студентам

1.как считать с текстового файла текст построчно в combobox при загрузке формы?
2. сделать проверку, если нет например слова в текстовом документе, то при нажатии на кнопку сохранить его в тестовый документ.

н. р. в текстовом документе 1.txt три имени:
Саша
Вася
Паша

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

помогите это осуществить!?

@Catstail · 30.01.2013, 11:12

Вот так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Load_in_Combo(Cmb as Control, Fname as string)
      Cmb.Clear
      fi%=FreeFile
      Open Fname for input As #fi%
      Do While not EOF(fi%)
          Line input #fi%,Stri$
          Cmb.Additem Stri$
      Loop
      Close #fi%
End Sub

Эту программу нужно вызвать с соотв. параметрами в процедуре OnLoad

@Lander13 · 30.01.2013, 11:35 **[ТС]**

]Я по другому начал делать...
вот код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim FileNum As Integer
Dim txt As String
Dim alltxt As String
FileNum = FreeFile
 
Open "c:\ABD admin\zapr\savepr.txt" For Input As FileNum
Do Until EOF(FileNum)
Line Input #FileNum, txt
alltxt = alltxt + txt + vbCrLf
Loop
 
Close #FileNum
 
Combo1.AddItem (alltxt)

только у меня в комбо выводиться не построчно, а все в одну строку... как это исправить?

@Catstail · 30.01.2013, 15:06

Сообщение от Lander13

Я по другому начал делать...

- разница непринципиальна.

Сообщение от Lander13

как это исправить?

- как я написал выше

Visual Basic
1
2
3
4
Do Until EOF(FileNum)
    Line Input #FileNum, txt
    Combo1.AddItem txt
Loop

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Lander13 0 / 0 / 0 Регистрация: 03.10.2012 Сообщений: 41

	Как считать с текстового файла текст построчно в combobox? 30.01.2013, 11:05. Показов 2300. Ответов 3 Метки нет (Все метки) 1.как считать с текстового файла текст построчно в combobox при загрузке формы? 2. сделать проверку, если нет например слова в текстовом документе, то при нажатии на кнопку сохранить его в тестовый документ. н. р. в текстовом документе 1.txt три имени: Саша Вася Паша на форме они выбираются из комбобокса. если в комбобоксе этого имени нет, то вводим его в этот же комбо бокс нажимаем кнопку и он должен сохранить это имя в текстовый файл. помогите это осуществить!? 0