Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

КАк прочитать и вывести на монитор текст из файла в VB 7.0

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> КАк прочитать и вывести на монитор текст из файла в VB 7.0

Имя

Сообщение

<< Старые топики Новые топики >>

КАк прочитать и вывести на монитор текст из файла в VB 7.0 - 2007-08-28 18:26:13.136666

Zmaster

Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000

Помогите Please, я знаю, как прочитать и вывести на монитор текст из файла, в VB 6.0, но в VB 7.0 это не работает. Подскажите как сделать это сделать в VB 7.0

Post #: 1

RE: КАк прочитать и вывести на монитор текст из файла в VB 7.0 - 2007-08-28 21:30:06.310000

int21h

Сообщений: 105
Оценки: 0
Присоединился: 2007-08-25 12:05:16.730000

Код : Сайт на котором много интересного для VB кодера : http://visualprogs.narod.ru/
Загрузить текстовой файл в TextBox.

Dim FN as Integer
FN = FREEFILE
Dim FName as String
FName = "C:\tmp\index.txt"
Open FName For Input As #FN
Text1.Text = Input(LOF(FN), #FN)
Close #FN

Сохранить текстовой файл из TextBox'а.

Dim FN as Integer
FN = FREEFILE
Dim FName as String
FName = "C:\tmp\index.txt"
Open FName For Output As #FN
Print #FN, Text1.Text
Close #FN

Post #: 2

RE: КАк прочитать и вывести на монитор текст из файла в VB 7.0 - 2007-08-28 21:43:09.663333

sergzone

Сообщений: 33
Оценки: 0
Присоединился: 2007-08-28 19:41:52.666666

Прибавь в Референсы проэкта Scripting Runtime library.


 Dim objFileSystem As New FileSystemObject
 Dim objTextStream As TextStream
 
 Set objTextStream = objFileSystem.OpenTextFile(_filePath, ForReading)
 
 if not (objTextStream.AtEndOfStream) then
 &nbsp;&nbsp;&nbsp; while not objTextStrea.AtEndOfStream
 &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;  dim strFileLine = objTextStrea.ReadLine
 &nbsp;&nbsp;&nbsp; wend
 end if
 
 objTextStream.Close
 
 Set objTextStream = Nothing
 Set objFileSystem = Nothing

Пишу от болды, но вроде должно похать.

Post #: 3

RE: Загрузить текстовой файл в TextBox. - 2007-08-29 15:41:14.810000

Zmaster

Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000

Спасибо, но есть еще один вопос:
Как вывести в текстовом поле не весь файл, а только определенное число символов, или определенную сроку?

Post #: 4

RE: Загрузить текстовой файл в TextBox. - 2007-08-29 21:18:23.220000

int21h

Сообщений: 105
Оценки: 0
Присоединился: 2007-08-25 12:05:16.730000

Ой … я пасс . (Когда кодил на VB в таких ситуациях додумывал сам :) так как в VB можно написать чёнить похожее на инглише , на С можно реализовать быро … но мну лень )

Post #: 5

RE: Загрузить текстовой файл в TextBox. - 2007-08-30 20:35:21.803333

Zmaster

Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000

Мне нужен синтаксис метода, который читает определенную строку из файла (СРОЧНО).[sm=bc.gif]

Кто может помочь?

Post #: 6

RE: Загрузить текстовой файл в TextBox. - 2007-08-30 21:27:44.023333

sergzone

Сообщений: 33
Оценки: 0
Присоединился: 2007-08-28 19:41:52.666666


 Public Function GetLineFromFile(lineNum As Integer)
 Dim objFileSystem As New FileSystemObject
 Dim objTextStream As TextStream
 Dim lineCounter As Integer : lineCounter = 0
 
 &nbsp; Set objTextStream = objFileSystem.OpenTextFile(_filePath, ForReading)
 
 &nbsp; if not (objTextStream.AtEndOfStream) then
 &nbsp;&nbsp;&nbsp;&nbsp; while not objTextStrea.AtEndOfStream
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (lineCounter = lineNum) Then
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GetLineFromFile = objTextStream.ReadLine
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; objTextStrea.ReadLine
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If
 
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lineCounter = lineCounter + 1
 &nbsp;&nbsp;&nbsp;&nbsp; wend
 &nbsp; end if
 
 objTextStream.Close
 
 Set objTextStream = Nothing
 Set objFileSystem = Nothing
 End Function

Post #: 7

RE: Загрузить текстовой файл в TextBox. - 2007-08-31 09:24:07.260000

Zmaster

Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000

Я все понял, спасибо всем кто помог.

Post #: 8

RE: Загрузить текстовой файл в TextBox. - 2007-08-31 11:01:37.470000

Zmaster

Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000

[left]Блин, да тут еще одна проблема!! Как прибавить в референсы проекта Scripting Runtime library?[/left][left]Я вхожу в диалоговое окно Project Properties, а потом что надо делать? Какую папку указывать?[/left][left] [/left][left] [/left]

Post #: 9

RE: Загрузить текстовой файл в TextBox. - 2007-09-01 02:11:28.350000

sergzone

Сообщений: 33
Оценки: 0
Присоединился: 2007-08-28 19:41:52.666666

Не Project Properties а References

Post #: 10

RE: Загрузить текстовой файл в TextBox. - 2007-09-04 18:10:23.583333

Zmaster

Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000

Может это и так, но я не совсем понял. У меня Visual Basic 7.0, там нет такого подменю, там есть только Add references. Там я добавил файл Scrrun.dll, но все равно VB7.0 не находит тип  filesystemobject. 
  Вот как выглядит подменю Add Reference:

вот такая моя проблема.

Post #: 11

RE: Загрузить текстовой файл в TextBox. - 2007-09-04 22:40:21.890000

sergzone

Сообщений: 33
Оценки: 0
Присоединился: 2007-08-28 19:41:52.666666

quote:

If (lineCounter = lineNum) Then GetLineFromFile = objTextStream.ReadLine Else objTextStrea.ReadLine End If

quote:

ORIGINAL: Zmaster

Может это и так, но я не совсем понял. У меня Visual Basic 7.0, там нет такого подменю, там есть только Add references. Там я добавил файл Scrrun.dll, но все равно VB7.0 не находит тип  filesystemobject. 
  Вот как выглядит подменю Add Reference:

вот такая моя проблема.

Я думал что ты используешь VB 6.0. На .НЕТ ето будет в таком виде. Без всяких dllok


 Imports System.IO
 
 Module Module1
 
  Sub Main()
 &nbsp;&nbsp;&nbsp;&nbsp; Console.Write(ReadToLine(1, "C:\file.txt"))
  End Sub
 
  Public Function ReadToLine(ByVal _lineNum As Integer, ByVal _File As String) As String
 &nbsp;&nbsp;&nbsp;&nbsp; Dim lineCounter As Integer : lineCounter = 1
 &nbsp;&nbsp;&nbsp;&nbsp; Dim objTextStream As StreamReader
 &nbsp;&nbsp;&nbsp;&nbsp; Try
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If File.Exists(_File) Then
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; objTextStream = File.OpenText(_File)
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not (objTextStream.EndOfStream) Then
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; While Not (objTextStream.EndOfStream)
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (lineCounter = _lineNum) Then
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return objTextStream.ReadLine()
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; objTextStream.ReadLine()
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lineCounter = lineCounter + 1
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End While
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return String.Empty
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return String.Empty
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return String.Empty
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If
 &nbsp;&nbsp;&nbsp;&nbsp; Catch e As Exception
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return e.ToString()
 &nbsp;&nbsp;&nbsp;&nbsp; Finally
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; objTextStream.Close()
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; objTextStream.Dispose()
 &nbsp;&nbsp;&nbsp;&nbsp; End Try
  End Function
 
 End Module

Post #: 12

Страниц: [1]

Все форумы >> [Компилируемые языки] >> КАк прочитать и вывести на монитор текст из файла в VB 7.0

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.