Re: exporting value. - Visual Basic Discussion Boards

Re: in my vb.net application i need to open ms word file

_AK_18-Sep-06 23:54

_AK_

18-Sep-06 23:54

Ashley van Gerven wrote:
mail me at: idontgiveaflyingf@ck.com

Nice Email Address. Big Grin | :-D

Best Regards,
Apurva Kaushal

USB and driveletter

tessers18-Sep-06 21:56

tessers

18-Sep-06 21:56

Hello everybody,

The last two day's i'm trying to enum my USB devices and the drive letter.
With WMI i'm able to get a hole lot of information about USB, but i can't
make the link to the associated drive letter.

Does anybody have a hint how to accomplisch this?

With regards,
Jurgen

read a text file

totokodok18-Sep-06 21:39

totokodok

18-Sep-06 21:39

I want to read a text file with this format :
3.4 34.5 34.35 ... and so on
56.1 24.3 12.2 ... and so on
... ... ... ... and so on

this file have dimension 1200 rows and 300 column.
I write a Visual Basic 2005 script to read this file and store in a array. but when I try to read this file.
a time to read this file is long. can you give me script to read this file with a short time.
thank for your attention

Public Sub MenuFile_Open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuFile_Open.Click
Dim opendialog As New OpenFileDialog
opendialog.Filter = ("text files (*.txt)|*.txt")

If opendialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim fname As String = opendialog.FileName

Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(fname)
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.SetDelimiters(Chr(9))
Dim currentRow As String()
Dim i, j As Integer
Dim data(,) as double

i = 0
While Not MyReader.EndOfData
Try
currentRow = MyReader.ReadFields()
Dim currentField As String
j = 0
For Each currentField In currentRow
redim preserve data(i,j)
data(i, j) = CStr(currentField)
j = j + 1
Next
End Try
i = i + 1
End While
End Using

End If

End Sub

Re: read a text file

Kschuler19-Sep-06 10:35

Kschuler

19-Sep-06 10:35

I think this might be faster than using a reader. It's only with Visual Studio 2005.

Dim strFile As String = My.Computer.FileSystem.ReadAllText("C:\MyFile.txt")

This will read ALL of the text from the file into a string variable. Then you can split it on newlines and spaces to get to the data.

exporting value.

waqar_mohmand18-Sep-06 20:41

waqar_mohmand

18-Sep-06 20:41

hello,
the code that u have written i.e given below
Dim objNet
On Error Resume Next

'In case we fail to create object then display our custom error

Set objNet = CreateObject("WScript.NetWork")
If Err.Number <> 0 Then 'If error occured then display notice
MsgBox "Don't be Shy." & vbCRLF &_
"Do not press ""No"" If your browser warns you."
Document.Location = "UserInfo.html"
'Place the Name of the document.
'It will display again
End if

Dim strInfo
strInfo = "User Name is " & objNet.UserName & vbCRLF & _
"Computer Name is " & objNet.ComputerName & vbCRLF & _
"Domain Name is " & objNet.UserDomain
MsgBox strInfo

Set objNet = Nothing 'Destroy the Object to free the Memory

I want to know that whether we can export the value of variable "strInfo" into a text file after it get the username,domain etc etc.
if it is possible then plz tell me or show me the script to do that.

thanks Confused | :confused:

waqar ajmal mohmand

exporting value. [modified]

waqar_mohmand18-Sep-06 20:27

waqar_mohmand

18-Sep-06 20:27

-- modified at 5:18 Tuesday 19th September, 2006

waqar ajmal mohmand