Visual Basic

how to get File's contents the txt and Doc files Using VB.Net

9-Jan-07 4:22

You must install the .NET Framework 2.0 in order for your app to work. You do NOT have to install Visual Studio .NET, just the .NET Framework. You can download the redistributable from here[^].

Dave Kreskowiak
Microsoft MVP - Visual Basic

somagunasekaran9-Jan-07 1:04

somagunasekaran

9-Jan-07 1:04

How to get File's contents the txt and Doc files. so pls some one help me...

thanking you
somasundaram

Re: how to get File's contents the txt and Doc files Using VB.Net

Dave Kreskowiak9-Jan-07 6:25

Re: how to get File's contents the txt and Doc files Using VB.Net

9-Jan-07 6:25

Reading a text file is easy. There's an example here.[^]

Reading a DOC file (I'm assuming you're referring to a Word document) is not so easy. You have to use Word to open it for you. Don't even think of trying to read it directly yourself. I don't do Office Interop, so I don't have any examples to show you, but, you may want to take a look at this[^] before you start looking for an example of opening a document.

Dave Kreskowiak
Microsoft MVP - Visual Basic

somagunasekaran9-Jan-07 18:24

somagunasekaran

9-Jan-07 18:24

I want to get the .txt and .Doc files. but i wrote the code only displaying the txt file.But it wont display the .Doc files.

I select the Doc and txt fileNames in Listbox.but File's Contents has to display in Richtextbox.

so I've written the code for(.txt) files only.But i need (.Doc) file's contents also.So How to get the (.Doc files Contents).So pls some one Help me......

Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox3.SelectedIndexChanged

Dim myFile As System.IO.FileInfo
Dim fileInfo As String
Dim myFileName As String
Dim stream As StreamReader
Dim input As String

myFileName = ListBox3.SelectedItem.ToString
myFile = New System.IO.FileInfo(fileName:=myFileName)
fileInfo = myFileName.Length.ToString
stream = File.OpenText(myFileName)
input = stream.ReadLine()
Console.WriteLine(input)
RichTextBox1.Text = input
stream.Close()
End Sub

Thanking you
somasundarak

Re: how to get File's contents the txt and Doc files Using VB.Net

Dave Kreskowiak10-Jan-07 3:25

Passing Null Parameter to Crystal reports

10-Jan-07 3:25

somagunasekaran wrote:
But it wont display the .Doc files.

Of course note. The RichTextBox doesn't know anything about Word's file format.

somagunasekaran wrote:
But i need (.Doc) file's contents also

You can get the text from a Word document using Office automation (Interop). But, if there is anything other than normal text in it, like tables and graphics, they won't show up in the RTB or won't show correctly.

Office automation is not something I do, so I don't have any examples to give you. But, this[^] should be a good place to start.

Dave Kreskowiak
Microsoft MVP - Visual Basic

charchabil039-Jan-07 0:32

charchabil03

9-Jan-07 0:32

Private Sub BPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BPrint.Click<br />
        Dim frm As New FrmPrintReport 'reports<br />
        Dim cr As New CRepResponsable<br />
        cr.SetParameterValue(0, Val(Me.TBAccountNumber.Text))'integer<br />
        cr.SetParameterValue(1, Me.TBAccountNumber.Text)'string<br />
        cr.SetParameterValue(2, vbNull) 'integer<br />
        cr.SetParameterValue(3, vbNull) 'string<br />
        <br />
        frm.CrystalReportViewer.ReportSource = cr<br />
        frm.MdiParent = Me.MdiParent<br />
        frm.Show()<br />
End Sub

i have the code above. i could not pass a null parameter, to the crystal reports. i will have an empty report Cry | :((

i tried vbnull.null and vbnull.empty same result.
but if I put

cr.SetParameterValue(2, Val(Me.TBSubAccount.Text))) 'integer 'not null<br />
cr.SetParameterValue(3, Me.TBSubAccount.Text) 'string 'not null

the report display the values.
here is the select expert formula (CR):

{CUSTOMERS.SUB_ACCOUNT_NUMBER} = {?SubAccount_String} and<br />
{ecole.serial} = {?AccountNumber} and<br />
{CUSTOMERS.ACCOUNT_NUMBER} = {?AccountNumber_String} and<br />
{ecole.sub_account} = {?SubAccount}

How could i pass a null parameter?

Regards
Ramy

how to create setup for console applns which have report?

rama charan9-Jan-07 0:31

rama charan

9-Jan-07 0:31

hi ,
wish u happy new year.

i have created a setup and installed the console appln in a diffent system .Everything is working except a form which has report viewer to display output.i think i have Not follwed the procedure to create setup for applns which have reports properly.the error which is dispaly when i try to display the report using report viewer in the application is

"System.Runtime.Interopservices.com exception
(0x80040154):com object wutg cksud{...} is either not valid or not register
at crystal desicions.crystal reports.ReportDocument.[]=()
-do- .Internalinit()
-do- .ctor()
at projname.projname..ctor
at projname.frmname.btn10_click()

any suggestion is welcome...

thank you for ur time and help in advance..

enjoy..

Re: how to create setup for console applns which have report?

Dave Kreskowiak9-Jan-07 4:19

9-Jan-07 4:19

Did you include in your install, or at least install seperately, Crystal Reports?

Dave Kreskowiak
Microsoft MVP - Visual Basic

Rich Text Box

saymajum8-Jan-07 20:11

8-Jan-07 20:11

I have created a rich text box using CreateWindowEx API. How do I send print of a document in the control using API or otherwise?

Christian Graus8-Jan-07 20:29

Christian Graus

8-Jan-07 20:29

Are you sure this is a Visual Basic question ?

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

saymajum8-Jan-07 21:57

8-Jan-07 21:57

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long

Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Function RchEdtCreate(ByVal hWindow As Long, ByVal ExtendedStyle As Long, ByVal Style As Long, ByVal Text As String, ByVal xPos As Long, ByVal yPos As Long, ByVal width As Long, ByVal height As Long, ByVal hInstance As Long) As Long
LoadLibrary "riched20.dll"
Const RICHEDIT_CLASS$ = "RichEdit20A"
RchEdtCreate = CreateWindowEx(ExtendedStyle, RICHEDIT_CLASS, Text, Style, xPos, yPos, width, height, hWindow, 0, hInstance, ByVal 0&)
'RichTextWndClass, Richedit_Class, RichEdit20A

End Function

This is my Code.

CPallini8-Jan-07 22:06

8-Jan-07 22:06

In fact, it is plain C.
Smile | :)

If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.

saymajum8-Jan-07 22:14

8-Jan-07 22:14

Okay Thanx,If u know the answer send it to me in any language.

CPallini8-Jan-07 22:19

8-Jan-07 22:19

You can use the Printer object.

If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.

saymajum8-Jan-07 22:41

8-Jan-07 22:41

Could u pls send me the source code?

CPallini8-Jan-07 22:44

8-Jan-07 22:44

I haven't, anyway, using the Printer object is fairly simple.

If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.

Assigning values to arrays.

Christian Graus8-Jan-07 23:28

Christian Graus

8-Jan-07 23:28

I was aware of this possibility, what I don't get is, why would you do it this way ? How does this create a different object to the one in the VB toolbox ?

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

someone_blank8-Jan-07 19:50

someone_blank

8-Jan-07 19:50

Hi all,

I am trying to assign values to my array but i got an error [Object variable or With block variable not set.] May i know where i have gone wrong. Below is my codes. I hope you could assist me.

Thanks!!

Dim d As Integer = 1
Dim seq1 As Integer
Dim seq2 As Integer

Dim strseq1 As String
Dim strseq2 As String

seq1 = tb_seq1.Text.Length
seq2 = tb_seq2.Text.Length

strseq1 = tb_seq1.Text
strseq2 = tb_seq2.Text

'Loop to create array
Dim i, j As Integer
Dim F As Array

For i = 0 To seq1 - 1
F(i, 0) = d * i
Next

For j = 0 To seq2 - 1
F(0, j) = d * j
Next

Re: Assigning values to arrays.

Christian Graus8-Jan-07 20:58

Christian Graus

8-Jan-07 20:58

someone_blank wrote:
Dim F As Array

F = Nothing at this point

someone_blank wrote:
F(i, 0) = d * i

So this will blow up.

You need to create the array with new. You'd do better to create an int array, I'd never create an instance of the Array class, that sucks. ArrayList, or List if you have VB 2005, is even better.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

Re: Assigning values to arrays.

someone_blank9-Jan-07 13:29

someone_blank

9-Jan-07 13:29

Hi Christian,

Thank you very much for your help.

Samantha

Re: Assigning values to arrays.

CPallini8-Jan-07 22:02