| Вопрос: Открытие текстового файла | Добавлено: 14.02.04 03:08 |
Автор вопроса:  Scald
|
|
Доброго вам времени суток! Вопрос у меня такой: мне надо провить в текстовом файле определенную строку, а не файл целиком. Как обратиться к определенной строчке в файле? И ишо вопрос: как сделать так, чтобы программу нельзя было закрыть через ctrl+alt+del (например, чтобы ее в списке не было)? Заранее благодарен, [S]c@ld |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  KAM ICQ: 190197618 Вопросов: 25 Ответов: 97 |
Профиль | | #1 | Добавлено: 14.02.04 12:57 |
|
Спрятать прогу от ctrl+alt+del можно с помошью API, а можно вот так: App.TaskVisible = False |
||
|
Номер ответа: 2 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 14.02.04 13:51 |
|
Можно открыть файл As Binary и пользоваться Get, так можно указать какой символ считывать... Хотя вроде была стандартная функция и для считывания одной строки... |
||
|
Номер ответа: 3 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #3 | Добавлено: 15.02.04 02:50 |
|
Можно открыть файл API и использовать SeekFilePointer, но для этого, опять-таки, надо знать номер байта, номера строки будет маловато... Не читая начало файла невозможно подсчитать, сколько в нем переводов строк... А про CAD вопрос очень часто здесь обсуждается, порой весьма эмоционально, поищи по форуму... |
||
|
Номер ответа: 4 Автор ответа:  Ujif ICQ: - Вопросов: 52 Ответов: 76 |
Web-сайт: Профиль | | #4 | Добавлено: 15.02.04 19:21 |
|
Вот так открываешь в text1: Open file For Input As #1 Dim s As Long s = LOF(1) Text1 = Input(s, 1) close и вот тебе функция Public Function ReadLine(TextBox1 As TextBox, NumberLine As Long) As String Dim Str As String, Ln As String Dim i As Long Dim CurLine As Long Dim CurSym As String CurLine = 1 Str = TextBox1.Text On Error Resume Next For i = 1 To Len(Str) CurSym = Mid(Str, i, 1) If CurLine = NumberLine Then If (Asc(CurSym) <> 10) And (Asc(CurSym) <> 13) Then Ln = Ln & CurSym End If If Asc(CurSym) = 13 Then CurLine = CurLine + 1 If CurLine > NumberLine Then GoTo lblexit Next i lblexit: ReadLine = Ln End Function А дальше сам наверно разбирешся. Енто если конечно файл не большой. Ну а если большой то пихай всё в RichTextBox и тоже самое только Public Function ReadLine(TextBox1 As RichTextBox, NumberLine As Long) As String заменить надо!!!!!!!!!! |
||
|
Номер ответа: 5 Автор ответа: Scald Вопросов: 5 Ответов: 3 |
Профиль | | #5 | Добавлено: 17.02.04 02:06 |
|
Премного благодарен! |
||
Страница: 1 |