Выбрать строку в текстовом файле

@Mubinov Damir · Регистрация: 01.03.2009

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

Форумчане простите меня!
Я никак не могу вспомнить как в текстовом файле выбрать строку.
например:

Visual Basic
1
2
3
4
5
f = FreeFile
pathx = App.Path & "\" & "option.txt"
Open pathx For Input As f
MsgBox Input(LOF(f), f) 
Close f

Нужно чтоб из option.txt он выбрал какуюнибудь строку(например 3ю)

@gaw · 15.08.2010, 22:35

по ходу можна так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Function v(fold As String, num) As String
If IsNumeric(num) = False Or num < 1 Then
v = "номер строки некорректный"
Exit Function
End If
Dim F As Long
Dim k As Integer, MyText As String
F = FreeFile
k = 0: v = ""
If Dir(fold) <> "" Then
Open fold For Input As #F
Do Until EOF(F)
k = k + 1
Line Input #F, MyText
If k = num Then
v = MyText
Exit Do
End If
Loop
Close #F
If v = "" Then v = "строка пустая либо номера не сущ."
Else
v = "путь не найден"
End If
End Function
 
Private Sub Command1_Click()
MsgBox v("D:\d\ddd.txt", InputBox("номер строки"))
End Sub

@STRATEG · 16.08.2010, 08:07

Mubinov Damir как я понял тебе нужно прочитать определенную строку настройки,на мож пригодиться,раньше так делал.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Public Sub opens()
Dim rc$
Dim x, dirs
dirs = Dir(App.path & "\" & "ops.ini")
If dirs = "ops.ini" Then
Open App.path & "\" & "ops.ini" For Input As #1
Do Until EOF(1)
        Line Input #1, rc$
        x = x + 1
        On Error GoTo Oshibka
        Select Case x  'х = строка
           Case 1 'если считывается первая то.....
               frmServer.txtOutput.BackColor = rc$
           Case 2
               frmServer.txtOutput.ForeColor = rc$
           Case 3
               frmServer.nik.Text = rc$
           Case 4
               frmServer.txtOutput.Width = rc$ / 80793
           Case 5
               frmServer.txtOutput.Height = rc$ / 80793
           Case 6
               frmServer.txtSendData.Width = rc$ / 80793
           Case 7
                frmServer.txtSendData.Height = rc$ / 80793
           Case 8
                frmServer.Command1.Width = rc$ / 80793
           Case 9
                frmServer.Command1.Height = rc$ / 80793
           Case 10
                 frmServer.Shape1.Width = rc$ / 80793
           Case 11
                frmServer.Shape1.Height = rc$ / 80793
           Case 12
                 frmServer.nik.Width = rc$ / 80793
           Case 13
                frmServer.nik.Height = rc$ / 80793
           Case 14
               frmServer.txtOutput.Left = rc$ / 80793
           Case 15
               frmServer.txtOutput.Top = rc$ / 80793
           Case 16
               frmServer.txtSendData.Left = rc$ / 80793
           Case 17
               frmServer.txtSendData.Top = rc$ / 80793
           Case 18
                frmServer.Command1.Left = rc$ / 80793
           Case 19
                frmServer.Command1.Top = rc$ / 80793
           Case 20
                frmServer.Shape1.Left = rc$ / 80793
           Case 21
                frmServer.Shape1.Top = rc$ / 80793
           Case 22
                frmServer.nik.Left = rc$ / 80793
           Case 23
                frmServer.nik.Top = rc$ / 80793
           Case 24
                frmServer.Height = rc$ / 80793
           Case 25
                frmServer.Width = rc$ / 80793
                End Select
    Loop
Close #1
Else
End If
Oshibka:
If Err = "13" Then
Close #1
MsgBox "Поврежден файл параметров", 48 + 0, "Ошибка"
DeleteFile App.path & "\" & "ops.ini"
MsgBox "Файл параметров удален", 64 + 0, "Уведомление"
End
End If
End Sub

Еще удобно использовать INI файлы.

@Mubinov Damir · 16.08.2010, 21:07 **[ТС]**

Спасибо всем за оказанное внимание!
P.S. А по короче нельзя?

Добавлено через 7 минут

по ходу можна так

Не по теме:

Спасибо, а что конкретно означает v: адрес файла или номер строки?

Добавлено через 4 минуты
Да и куда писать адрес?

Добавлено через 16 секунд
Да и куда писать адрес?

Добавлено через 7 минут
Может я вас всех задолбал но.
в первом варианте нельзя ли вместо msgbox присвоить v значение и адрес сразу

@gaw · 16.08.2010, 22:44

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Function v(fold As String, num) As String
On Error GoTo 1
Dim F As Long
Dim k As Integer, MyText As String
F = FreeFile
k = 0: v = ""
Open fold For Input As #F
Do Until EOF(F)
k = k + 1
Line Input #F, MyText
If k = num Then
v = "номер строки:  " & num & "    значение:" & MyText
Exit Do
Else
v = "номер строки:  " & num & "    значение:  пусто "
End If
Loop
Close #F
Exit Function
1 v = "Error"
End Function
 
Private Sub Command1_Click()
MsgBox v("D:\d\прп.txt", 3) '(путь,номер строки)
 
'или
'Dim stroka As String
'stroka = v("D:\d\прп.txt", 3)
 
'или
'Text1.Text = v("D:\d\прп.txt", 3)
End Sub

@Mubinov Damir · 18.08.2010, 00:28 **[ТС]**

Не по теме:

вылетает ошибка 13

Добавлено через 5 минут
СПАСИБО ВСЕМ БОЛЬШОЕ,
Заработало!

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения 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 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Mubinov Damir 6 / 6 / 0 Регистрация: 01.03.2009 Сообщений: 93
	18.08.2010, 00:28 [ТС]
	Не по теме: вылетает ошибка 13 Добавлено через 5 минут СПАСИБО ВСЕМ БОЛЬШОЕ, Заработало! 0