Opening Notepad file in TextBox

[Sender]

I have two questions:

(1) I just want to check whether a .txt file is empty or not (without
opening it). Like I click on a command button then it should give message
EMPTY if is empty and show message "NON EMPTY" if it is not empty.

(2) What are the steps to open a notepad file (C:\XYZ\abc.txt ) in a VB Text
Box.

Thanks

[CJ Taylor]

Use the System.io.FileI nfo class.

you'll find much reading on that. =)

-CJ
"Sender" <us**@domain.co m> wrote in message
news:ui******** ********@TK2MSF TNGP12.phx.gbl. ..

I have two questions:

(1) I just want to check whether a .txt file is empty or not (without
opening it). Like I click on a command button then it should give message
EMPTY if is empty and show message "NON EMPTY" if it is not empty.

(2) What are the steps to open a notepad file (C:\XYZ\abc.txt ) in a VB Text Box.

Thanks

[Armin Zingler]

"Sender" <us**@domain.co m> schrieb

I have two questions:

(1) I just want to check whether a .txt file is empty or not
(without opening it). Like I click on a command button then it should
give message EMPTY if is empty and show message "NON EMPTY" if it is
not empty.
An empty file is a file with size = 0?

Use Microsoft.Visua lBasic.FileSyst em.FileLen.
(2) What are the steps to open a notepad file (C:\XYZ\abc.txt ) in a
VB Text Box.

Set the Textbox' multiline property = True. See also:

<F1>
Visual Studio.NET
Visual Basic and Visual C#
Reference
Visual Basic language
Visual Basic Language Tour
-> Processing drives, folders and files
.NET Framework
Programming with .NET Framework
-> Working with I/O
--
Armin

- The tree representing the table of contents has been translated from
localized (German) version. Excuse slight deviations.

[William Ryan]

Read the file in as a stream and assign the contents of the stream to the
text box. You'll have to convert it first to an ASCII Representation. .

check out this link..it should get you through it.
http://www-tcsn.experts-exchange.com..._20670042.html
HTH,

Bill
"Sender" <us**@domain.co m> wrote in message
news:ui******** ********@TK2MSF TNGP12.phx.gbl. ..

I have two questions:

(1) I just want to check whether a .txt file is empty or not (without
opening it). Like I click on a command button then it should give message
EMPTY if is empty and show message "NON EMPTY" if it is not empty.

(2) What are the steps to open a notepad file (C:\XYZ\abc.txt ) in a VB Text Box.

Thanks

[Don]

I'm new to .Net (just a couple days) so there might be a better way to
do this.

Question: What does "Empty" mean? Is the file empty if it contains one
space? Is it empty if it doesn't exist?

You can check the length of an existing file to see if it's greater
than zero but, by definition, you can't see what;'s inside of it
without opening it.

==== To check the length of a text file ====

Dim FileSize As Long

Try
FileSize = FileLen("C:\Som eFile.Txt")
Catch exc As FileNotFoundExc eption
FileSize = 0
Finally
Select Case FileSize
Case Is > 0
MsgBox("NON EMPTY: " & FileSize.ToStri ng)
Case Else
MsgBox("EMPTY")
End Select
End Try
==== To read a text file: ====

Dim myStreamReader As StreamReader

myStreamReader = File.OpenText(" C:\SomeFile.Txt ")

Me.txtFileText. Text = myStreamReader. ReadToEnd()

If Not myStreamReader Is Nothing Then
myStreamReader. Close()
End If

On Thu, 18 Sep 2003 11:50:37 -0700, "Sender" <us**@domain.co m> wrote:

I have two questions:

(1) I just want to check whether a .txt file is empty or not (without
opening it). Like I click on a command button then it should give message
EMPTY if is empty and show message "NON EMPTY" if it is not empty.

(2) What are the steps to open a notepad file (C:\XYZ\abc.txt ) in a VB Text
Box.

Thanks

[Fergus Cooney]

Hi Sender,

You could use something like the following:
MyForm.TextBox1 .Text = sReadFile ("C:\XYZ\abc.tx t", False)

Public Module FileUtils
Public Function sReadFile (sFilePath As String, _
tToFailOnErrors As Boolean) As String
If Not File.Exists (sFilePath) Then
Return ""
End If

Dim sFileContents As String = ""
Dim strmFile As TextReader
Try
strmFile = File.OpenText (sFilePath)
sFileContents = strmFile.ReadTo End

Catch e As Exception
If tToFailOnErrors Then Throw e

Finally
If Not strmFile Is Nothing Then
strmFile.Close( )
End If
End Try

Return sFileContents
End Function
End Module

Regards,
Fergus

[Cor]

Hi,
I like that everybody has entered his cake.
Here is mine, I thought why do I need a textbox for an empty file.
\\\\
Dim sr As StreamReader = New StreamReader("f ile")
if not sr is nothing then
Dim line As String
line = sr.ReadLine
If line = Nothing Then
Me.label1 = "Empty"
Else
Me.label1 = "Filled"
End If
else
me.label1="Does not exist"
end if
////
It is just a little cake I know and without creme.
Cor

[Herfried K. Wagner [MVP]]

Hello,

"Sender" <us**@domain.co m> schrieb:

(1) I just want to check whether a .txt file is empty or
not (without opening it).
\\\
MsgBox((FileLen ("C:\bla.txt ") = 0).ToString())
///
(2) What are the steps to open a notepad file (C:\XYZ\abc.txt )
in a VB Text Box.

\\\
Dim s As New System.IO.Strea mReader("C:\bla .txt")
Me.TextBox1.Tex t = s.ReadToEnd()
s.Close()
///

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet

[Herfried K. Wagner [MVP]]

Hello,

"Cor" <no*@non.com> schrieb:

I like that everybody has entered his cake.
Here is mine, I thought why do I need a textbox for
an empty file.
\\\\
Dim sr As StreamReader = New StreamReader("f ile")
if not sr is nothing then
Dim line As String
line = sr.ReadLine
If line = Nothing Then
Me.label1 = "Empty"
Else
Me.label1 = "Filled"
End If
else
me.label1="Does not exist"
end if
////
Why not use 'System.IO.File .Exists'?
It is just a little cake I know and without creme.

;-)

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet

[Cor]

Herfried,
In my eyes was the question an empty string in a existing .txt file.
The test for nothing I put at the last moment in my code ,
Before that was the code
If (line Is nothing) or (line = nothing) then
I did find this funny code thinking of all the discussions of that, but I
don't know if a txt file can exist with null records in it.

Maybe I test it tomorrow
It is a new streamwriter with a direct close I think .

But I think he adds an empty record.
Cor