Zp » 27.06.2005 (Пн) 19:13
Dim myStreamR As IO.FileStream = New System.IO.FileStream(TextBox1.Text, IO.FileMode.Open, IO.FileAccess.Read)
Dim myStreamW As IO.FileStream = New System.IO.FileStream(TextBox2.Text, IO.FileMode.CreateNew, IO.FileAccess.Write)
Dim BufByte As Integer
Dim my As IO.StreamReader = New System.IO.StreamReader(TextBox1.Text)
While myStreamR.ReadByte <> -1
BufByte = myStreamR.ReadByte()
myStreamW.WriteByte(BufByte)
End While
myStreamR.Close()
myStreamW.Close()
Dmitriy Solomnikov » 27.06.2005 (Пн) 20:54
Sebas » 28.06.2005 (Вт) 2:21
Dmitriy Solomnikov писал(а):если тебе надо считать не сам файл, а его содержимое
Sebas » 28.06.2005 (Вт) 2:22
Dmitriy Solomnikov писал(а):
dim s as string=""
dim sr as new streamReader(path)
s=sr.readLine()
do while not s=""
s=sr.readLine
loop
или еще быстрее
dim s as string=sr.ReadToEnd
а дальше пиши полученный стринг куда захочешь.
Sebas » 28.06.2005 (Вт) 2:26
Zp писал(а):Как мне читать файл пока ненастанет его конец....
- Код: Выделить всё
Dim myStreamR As IO.FileStream = New System.IO.FileStream(TextBox1.Text, IO.FileMode.Open, IO.FileAccess.Read)
Dim myStreamW As IO.FileStream = New System.IO.FileStream(TextBox2.Text, IO.FileMode.CreateNew, IO.FileAccess.Write)
Dim BufByte As Integer
Dim my As IO.StreamReader = New System.IO.StreamReader(TextBox1.Text)
While myStreamR.ReadByte <> -1
BufByte = myStreamR.ReadByte()
myStreamW.WriteByte(BufByte)
End While
myStreamR.Close()
myStreamW.Close()
Что здесь не так?
_Мика_ » 28.06.2005 (Вт) 20:23
Sebas писал(а):Zp писал(а):Как мне читать файл пока ненастанет его конец....
- Код: Выделить всё
Dim myStreamR As IO.FileStream = New System.IO.FileStream(TextBox1.Text, IO.FileMode.Open, IO.FileAccess.Read)
Dim myStreamW As IO.FileStream = New System.IO.FileStream(TextBox2.Text, IO.FileMode.CreateNew, IO.FileAccess.Write)
Dim BufByte As Integer
Dim my As IO.StreamReader = New System.IO.StreamReader(TextBox1.Text)
While myStreamR.ReadByte <> -1
BufByte = myStreamR.ReadByte()
myStreamW.WriteByte(BufByte)
End While
myStreamR.Close()
myStreamW.Close()
Что здесь не так?
Чёл! Если ты бушь читать мегафайл "по-байту" то конец никогда не настанет!
ЗЫ: выпей йаду!
Dmitriy Solomnikov » 29.06.2005 (Ср) 13:49
Sebas писал(а):Dmitriy Solomnikov писал(а):
dim s as string=""
dim sr as new streamReader(path)
s=sr.readLine()
do while not s=""
s=sr.readLine
loop
или еще быстрее
dim s as string=sr.ReadToEnd
а дальше пиши полученный стринг куда захочешь.
А ты уверен, что челу Стринг, а не Бинари нужен?
ЗЫ: Выпей йаду!
Dmitriy Solomnikov писал(а):если тебе надо считать не сам файл, а его содержимое
Sebas » 29.06.2005 (Ср) 13:55
Dmitriy Solomnikov писал(а):Sebas писал(а):Dmitriy Solomnikov писал(а):
dim s as string=""
dim sr as new streamReader(path)
s=sr.readLine()
do while not s=""
s=sr.readLine
loop
или еще быстрее
dim s as string=sr.ReadToEnd
а дальше пиши полученный стринг куда захочешь.
А ты уверен, что челу Стринг, а не Бинари нужен?
ЗЫ: Выпей йаду!
Нет не уверен, поэтому и написал:Dmitriy Solomnikov писал(а):если тебе надо считать не сам файл, а его содержимое
Заметь, чел не написал что ему конкретно надо. А йаду можешь сам выпить сколько хочешь
Dmitriy Solomnikov » 29.06.2005 (Ср) 14:08
Sebas писал(а):Как не написал? Он же по в массив считывает!
Sebas писал(а):А фразка то по-русски не звучит...
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 64