Visual Basic

18-Dec-06 9:34

That's not what a Timer is for. A Timer fires off an event every interval milliseconds so you can do something repeatedly.

If you want the controls to change before your data-intensive code starts, just put in a Application.DoEvents() so the controls have a chance to get and process their paint events.

Private Sub btnShipConfirms_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShipConfirms.Click
    GroupBox1.Text = "Shipping Confirmation Data"
    btnShipConfirms.Enabled = False
    btnOrderConfirms.Enabled = True
    btnSendAll.Visible = False
    btnSendAllShip.Visible = True
 
    Application.DoEvents()
 
    'run data access routines
    CreateShipConfirmTempTable()
    RefreshShipConfirm()
    .
    .
    .

Dave Kreskowiak
Microsoft MVP - Visual Basic

usb port

Agbaria Ahmad18-Dec-06 6:50

Agbaria Ahmad

18-Dec-06 6:50

how i can use the usb port in vb.net?

Re: usb port

Dave Kreskowiak18-Dec-06 7:44

How to validate a textbox without using the ASP: Validate Controls

18-Dec-06 7:44

You can keep posting the same question over and over, but the answer doesn't change!

You can NOT read/write the USB ports in any way similar to the serial port or parallel port. You MUST write your code to communicate with the device you want in the manner that the device expects. How you do that is ENTIRELY dependant on the DEVICE you want to talk to, NOT the USB port.

What exactly are you trying to do, and don't say "use the USB port". That doesn't make any sense.

Dave Kreskowiak
Microsoft MVP - Visual Basic

cmhuff18-Dec-06 5:08

cmhuff

18-Dec-06 5:08

On your code-behind (aspx.vb) page add the following:

Private Function ValidateFormControls() As Boolean
Dim ReturnValue As Boolean = True

If txtFirstName.Text.ToString.Trim = "" AndAlso txtLastName.Text.ToString.Trim = "" Then
ReturnValue = False
End If

ValidateFormControls = ReturnValue
End Function

Code snippet:

Try
If Page.IsValid = False Then Exit Sub

If ValidateFormControls() Then
ReturnValue = objBCBusiness.SaveBusinessName(objAddName)

If ReturnValue = "" Then
ShowBusinessInfo()
End If
ClearTextBoxes()
Else
lblMessage.Text = "All fields cannot be empty."
End If

Note: Add the following to your aspx page:

asp:Label ID="lblMessage" CssClass="red_text" runat="server"

Use the Boolean data type to contain two-state values such as true/false, yes/no, or on/off. The default value of Boolean is False.)

Re: How to validate a textbox without using the ASP: Validate Controls

Dave Kreskowiak18-Dec-06 5:45

Re: How to validate a textbox without using the ASP: Validate Controls

18-Dec-06 5:45

So is there a question in here? Or are you just posting a public service announcement? And a bad one at that...

Dave Kreskowiak
Microsoft MVP - Visual Basic

Steven J Jowett18-Dec-06 22:32

Steven J Jowett

18-Dec-06 22:32

Well if the question is - "How do I validate a textbox client side?" then use JavaScript

Steve Jowett

validate .csv file columns values

montu337718-Dec-06 4:30

montu3377

18-Dec-06 4:30

Hi,

I am facing one huddles in my project.If any one gives solution then it would be great.

let me describe :
We have user requirement that user has to upload .csv file from client browser which contains around 4 columns.Columns includes like firstname,lastname,SSN,DOB field.Now when user upload .csv file (which may containts more then 10K records) we have to validate those fileds format like firstname should be charater no numeric values include,each SSN value should be numeric not character values like that,so now how can i validate each and every value of each column for 10k records???

we are using asp.net with vb.net(as code behind).Can any body suggest me the good solution for that.??If you have any doubt to understand then feel free to ask me.

I will thankfull for that in advance.

regards,
montu3377

Colin Angus Mackay18-Dec-06 4:49

Colin Angus Mackay

18-Dec-06 4:49

montu3377 wrote:
how can i validate each and every value of each column for 10k records???

In a loop? I really don't understand what you are having difficulty with.

I think the problem is insufficiently defined.

For example:
What are you using to parse the file?

What is to happen if an error occurs? Do you stop the process or do you skip the line?

If you continue, how do you want to report it? Should it log if for an admin to look at, or should the user doing the upload be told?

Upcoming Scottish Developers events:
* Glasgow: Tell us what you want to see in 2007

My: Website | Blog | Photos

montu337718-Dec-06 6:19

montu3377

18-Dec-06 6:19

Hi ,

ok Good questions:
let me give all answers :
let's say .csv file has 10K rows with column firstname,lastname,SSN,DOB.Now you are checking record by record and if you find firstname in bad format like numeric then count that row as bad row and then continue for next record and like that you can get how much are good records and how much are bad records and at end of the finding,you need to show to user that let's say 1000 records are bad and 9000 records are good out of 10,000 records.
This is how you have to report to user,so user can understand that what's problem with rest of records which are bad.
so user can change those records and then upload .csv file again.

I hope your now clear abt output.My main problem is to how to validate each and every rows (records).??If i will count one by one record then performance will be def. a issue.

regards,
Montu3377

Dave Kreskowiak18-Dec-06 9:29

18-Dec-06 9:29

montu3377 wrote:
My main problem is to how to validate each and every rows (records).??If i will count one by one record then performance will be def. a issue.

You don't have a choice here. You have to go through this file, one record at a time, parse and validate each field. A RegEx expression would probably speed things up a little bit.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Jason McBurney18-Dec-06 11:30

Jason McBurney

18-Dec-06 11:30

Dave Kreskowiak wrote:
RegEx expression would probably speed things up a little bit.

And since you are going to use the same 4 or 5 RegEx you may want to consired precompile them.

montu3377 wrote:
If i will count one by one record then performance will be def. a issue.

If the Business does not require a sync response, then fire a new thread to do the validation and then email a report when complete.

Just some other options.

You can only be young once. But you can always be immature.
- Dave Barry

Append text file

jds120718-Dec-06 4:10

jds1207

18-Dec-06 4:10

I have a sub procedure that cleans a text file and write it to the console. Now I need some help appending that cleaned text file to its specified path. Here is the code that I have:

Private Sub CleanFile()

'Read file line by line
Dim file_name As String = "c:\Scanning files\lsprint_MO.txt"
Dim textline As String

If System.IO.File.Exists(file_name) = True Then
Dim objReader As New System.IO.StreamReader(file_name)

Do While objReader.Peek() - 1
textline = objReader.ReadLine() & vbNewLine

If textline.IndexOf("xxxxxxx") = 17 Then
Console.WriteLine(textline)
WriteFile(textline)
End If
Loop
End If
End Sub
Private Sub WriteFile(ByVal fname As String)

Dim oWrite As System.IO.StreamWriter
oWrite = IO.File.AppendText("c:\Scanning files\lsprint_MO.txt")

End Sub

When I run the program I get the following message:

The process cannot access the file 'c:\Scanning files\lsprint_MO.txt' because it is being used by another process.

Any ideas!

jds1207

Martin.Smith18-Dec-06 4:36

18-Dec-06 4:36

Hi,

You are seeing this problem because the WriteFile() function is trying to open a stream to the same file opened in the CleanFile() function.

A quick and easy solution is to create a temporary output file and pass its filename into the WriteFile() function, then at the end of the CleanFile() function delete the original c:\Scanning files\lsprint_MO.txt file and then rename the temporary file...

You can get a temporary file name by:
dim Temp_file as String = my.Computer.FileSystem.GetTempFileName()

Then update WriteFile() function:
Private Sub WriteFile(ByVal OUTPUT_FILE as String, ByVal fname As String)
Dim oWrite As New System.IO.StreamWriter(OUTPUT_FILE)
oWrite = IO.File.AppendText(fname)
End Sub

At the end of CleanFile()
ObjReader.Close()
My.Computer.FileSystem.DeleteFile("c:\Scanning files\lsprint_MO.txt")
My.Computer.FileSystem.RenameFile(Temp_file, "c:\Scanning files\lsprint_MO.txt")

I hope this helps you out....

Regards

Martin

jds120718-Dec-06 5:12

jds1207

18-Dec-06 5:12

I got this error message: Illegal characters in path.

This line was highlighted:

Dim oWrite As New System.IO.StreamWriter(Output_File)

Also, am I on the right track?

Private Sub CleanFile()

'Read file line by line
Dim file_name As String = "c:\Scanning files\lsprint_MO.txt"
Dim textline As String
Dim Temp_file As String = My.Computer.FileSystem.GetTempFileName

If System.IO.File.Exists(file_name) = True Then
Dim objReader As New System.IO.StreamReader(file_name)

Do While objReader.Peek() - 1
textline = objReader.ReadLine() & vbNewLine

If textline.IndexOf("xxxxxxx") = 17 Then
'Console.WriteLine(textline)
WriteFile(textline, "c:\Scanning files\lsprint_MO.txt")
End If
Loop
objReader.Close()
My.Computer.FileSystem.DeleteFile("c:\Scanning files\lsprint_MO.txt")
My.Computer.FileSystem.RenameFile(Temp_file, "c:\Scanning files\lsprint_MO.txt")
End If
End Sub

Private Function WriteFile(ByVal Output_File As String, ByVal fname As String) As Boolean
Dim oWrite As New System.IO.StreamWriter(Output_File)
oWrite = IO.File.AppendText(fname)

Thanks!

jds1207

Martin.Smith18-Dec-06 23:03

18-Dec-06 23:03

I notice you have got the parameters the wrong way round in your call to the WriteFile() function.... You are basically on the right track:

Here is my (slightly corrected) version of your WriteFile() function:

    Private Sub WriteFile(ByVal Output_file as string, ByVal The_text as String)<br />
        Dim oWrite As System.IO.StreamWriter<br />
<br />
        If File.Exists(Output_file) = False Then<br />
            ' Create a new file to write to.<br />
            oWrite = IO.File.CreateText(Output_file)<br />
        Else<br />
            ' Append to file<br />
            oWrite = IO.File.AppendText(Output_file)<br />
        End If<br />
<br />
        oWrite.WriteLine(The_text)<br />
        oWrite.Flush()<br />
        oWrite.Close()<br />
    End Sub

And here is my version of your CleanFile() Function:

    Private Sub CleanFile()<br />
        'Read file line by line<br />
        Dim file_name As String = "c:\Scanning files\lsprint_MO.txt"<br />
        Dim Temp_file As String = My.Computer.FileSystem.GetTempFileName<br />
        Dim textline As String<br />
        <br />
        If System.IO.File.Exists(file_name) = True Then<br />
            Dim objReader As New System.IO.StreamReader(file_name)<br />
<br />
            Do While objReader.Peek() - 1<br />
                textline = objReader.ReadLine() & vbNewLine<br />
<br />
                If textline.IndexOf("xxxxxxx") = 17 Then<br />
                    'Console.WriteLine(textline)<br />
                    WriteFile(Temp_file, textline)<br />
                End If<br />
            Loop<br />
            objReader.Close()<br />
            My.Computer.FileSystem.DeleteFile("c:\Scanning files\lsprint_MO.txt")<br />
            My.Computer.FileSystem.RenameFile(Temp_file, "c:\Scanning files\lsprint_MO.txt")<br />
        End If<br />
    End Sub

One thing to note here, your original lsprint_MO.txt file will be overwritten by the process of running CleanFile()....

I hope this clears everything up for you....

Have fun and best regards,

Martin

jds120719-Dec-06 8:08

jds1207

19-Dec-06 8:08

I have the program running but it has been running for quiet a while now. Does it suppose to take this long to complete?

jds1207

Martin.Smith19-Dec-06 20:24

Command prompt (cmd.exe) as a hidden process

19-Dec-06 20:24

I guess it will all depend on the size of the input file....

Perhaps a tweak to the "while" loop inside your cleanFile() function may help speed things up:

    Private Sub CleanFile()<br />
        'Read file line by line<br />
        Dim file_name As String = "c:\Scanning files\lsprint_MO.txt"<br />
        Dim Temp_file As String = My.Computer.FileSystem.GetTempFileName<br />
        Dim textline As String<br />
<br />
        If System.IO.File.Exists(file_name) = True Then<br />
            Dim objReader As New System.IO.StreamReader(file_name)<br />
<br />
            Do<br />
                textline = String.Concat(objReader.ReadLine(), ControlChars.NewLine)<br />
<br />
                If textline.IndexOf("xxxxxxx") = 17 Then WriteFile(Temp_file, textline)<br />
                <br />
            Loop Until textline Is Nothing<br />
<br />
            objReader.Close()<br />
            My.Computer.FileSystem.DeleteFile("c:\Scanning files\lsprint_MO.txt")<br />
            My.Computer.FileSystem.RenameFile(Temp_file, "c:\Scanning files\lsprint_MO.txt")<br />
        End If<br />
    End Sub

Other than that, I'm affraid I have no ideas.....

Regards,

Martin

Martin.Smith18-Dec-06 2:58

Re: Command prompt (cmd.exe) as a hidden process

18-Dec-06 2:58

Hi all,

I am writing a VB.Net application that has a Command Prompt, which is running as a hidden process and I am redirecting the standard input/output from this process to my own user interface.

Everything seems to be working fine for regular DOS commands, for example; If I type "DIR" into my user-interface it displays exactly the same as if I'd typed DIR in to a command prompt window -- no problems there....

If I enter the name of an executable that is a windows based application, for example notepad.exe, then nothing seems to happen. If I then close my application the program I tried to start (i.e. Notepad) magically appears.

Having delved a bit deeper into this, I notice that after executing the notepad.exe command in my user interface, task manager is showing a "notepad.exe" process running but its not visible. I tried executing the dos command "start notepad.exe", and hey presto - the Notepad application starts up and is immediately visible.

Does anybody have any ideas as to why my hidden command prompt process is not making windows based applications immediately visible (unless they are proceeded by the "start" command)??

Thanks,

Martin

Dave Kreskowiak18-Dec-06 8:42

Re: Command prompt (cmd.exe) as a hidden process

18-Dec-06 8:42

I can duplicate your problem, but I can't figure out why it's doing what it is. I think it has something to do with UseShellExecute, but you don't have much of a choice there considering you can't redirect the Streams without it being False.

The reason I say this is because you start the CMD process WITHOUT the shell. Any process that's launched from that CMD will ALSO not be launched from the Shell. The START executable gets around that by creating a new instance of the Shell and launching your command line through that (I THINK!). Funny thing is that you can't launch your hidden, or otherwise, CMD process with "START CMD.EXE" while UseShellExecute is False! You also can't tell your successfully launched hidden CMD process to launch another CMD process using START ("CMD.EXE /K START CMD.EXE") without a Win32 error stopping you.

Sorry, it looks like there is no way around this that I can think of...

Dave Kreskowiak
Microsoft MVP - Visual Basic

Martin.Smith18-Dec-06 23:06

File transfer on LAN..........

18-Dec-06 23:06

Thanks a lot for having a look into my problem Dave,

You have provided a brilliant analysis, and I guess its a limitation I am going to have to live with....

Best regards,

Martin

Nagraj Naik18-Dec-06 1:59

Nagraj Naik

18-Dec-06 1:59

Hello friends,
I have to create an application through which client can take backup of other machines on server machine(in LAN).

So primarily I want to create server application which can copy simple text file from client machines(in LAN) and save them on server machine.

I am new in .net and not getting how I should start?........I hope some experts can help me out.

Please help me to solve this situation it's urgent.....

Thanks,
Nagraj.

Re: File transfer on LAN..........

Dave Kreskowiak18-Dec-06 6:00