|
Dear All,
I am facing problem while reading from csv file. It is containing near around 5000 rows. My code is as follows:
Dim Tsream As TextStream
Dim AllRows() As String
Dim SingleLine() As String
Dim AllColumn() As String
Dim readcontents As String
'Reading data in text stream
Set Tstream = FSO.OpenTextFile(filetoread, ForReading, False)
readcontents = Tstream.ReadAll
'separating data of csv file as rows and storing all rows in an array
AllRows = Split(readcontents, vbCrLf)
'Reading data
For i = 0 To UBound(AllRows) - 1
'separating data as single row and storing columns in an array
AllColumn = Split(AllRows(i), ",")
a=AllCoumn(0)
b=AllCoumn(1)
. ..........
Z=AllCoumn(25)
next
But I am not getting correct value of UBound(AllRows).What may be the reason behind this? Is it due to the fact that many of the coulmns are empty in a row? When I save those csv files as text files and then try to read from the same code, everything works fine till the no. of rows are less than 1000 or so. Please tell me how to resolve this issue.
Thanks and Regards,
Virendra
|
|
|
|
|
Hi,
Check this out.
Private Sub cmdGo_Click()
Dim file_name As String
Dim fnum As Integer
Dim whole_file As String
Dim lines As Variant
Dim num_rows As Long
Dim the_array() As Variant
Dim R As Long
Dim C As Long
file_name = App.Path
If Right$(file_name, 1) <> "\" Then file_name = _
file_name & "\"
file_name = file_name & "test.csv"
' Load the file.
fnum = FreeFile
Open file_name For Input As fnum
whole_file = Input$(LOF(fnum), #fnum)
Close fnum
' Break the file into lines.
lines = Split(whole_file, vbCrLf)
' Dimension the array.
num_rows = UBound(lines)
ReDim the_array(num_rows)
' Copy the data into the array.
For R = 0 To num_rows
the_array(R) = Split(lines(R), ",")
Next R
' Prove we have the data loaded.
For R = 0 To UBound(the_array)
For C = 0 To UBound(the_array(R))
Debug.Print the_array(R)(C) & "|";
Next C
Debug.Print
Next R
Debug.Print "======="
End Sub
Regards,
Manowj
|
|
|
|
|
Hi! Manowj
Thanx for your kind co.operation. But this code is giving error while reading from CSV file. The error is
"Input past end of file" in the following section
' Load the file.
fnum = FreeFile
Open file_name For Input As fnum
whole_file = Input$(LOF(fnum), #fnum)
Close fnum
Though code is going fine with text files.
Thanks and Regards,
Virendra
|
|
|
|
|
Hi! Manowj
Thanx for your kind co.operation. But this code is giving error while reading from CSV file. The error is
"Input past end of file" in the following section
' Load the file.
fnum = FreeFile
Open file_name For Input As fnum
whole_file = Input$(LOF(fnum), #fnum)
Close fnum
Though code is going fine with text files.
Thanks and Regards,
Virendra
|
|
|
|
|
Hi All,
I want to generate a Data Report from VB6.0 without Database(MSACCESS, Oracle etc..).
I want to read the data from .txt file and to generate a Data Report in VB6.0.
Please Guide me..
-- modified at 0:48 Friday 27th April, 2007
Thanks & Regards
Kumaran
|
|
|
|
|
Hello All!
I am really stumped on this. So I have a server/client app, with SQL as a backend. The client program has it's forms come up by the server. That where I use the FileWatch process. Works pretty well, and fast. I creat a file from the server on server, the client flewatch see that file, and open up a form. A timer on the form closes after a few some time. The file the server creates, gets deleted. I'm sure this isn't the best way, but it works pretty well, except now. I can only run up to like six or seven at a time. Anyone of them will work, but not all at the same time. My server is created the files just fine, so the problem is with the client side. I don't get a warning or an error. The watch process just doesn't run.
So here is a sample of the code.
Declaring it, Public FggWatch As New FileSystemWatcher
I have this in my form load event. I also tried to put it in IntilizedComponet.
AddHandler FggWatch.Created, AddressOf FggWatch_Created<br />
FggWatch.Path = (TempFileSetting)<br />
FggWatch.Filter = "*.fgg"<br />
FggWatch.IncludeSubdirectories = False<br />
FggWatch.EnableRaisingEvents = True<br />
And then here is what happen after the file gets tagged
Private Sub FggWatch_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs)<br />
Dim frmFgg As New frmFggWn<br />
Sound.PlayWaveResource("ding.wav")<br />
frmFgg.ShowDialog()<br />
End Sub
It worked fine for weeks, then all of sudden! You know. Now keep in mind I have 13 of thees little gems, the only difrence in the file names, and a diffrent form get displayed.
Thanks!!
Rudy
|
|
|
|
|
Rudy I am a little vague on what you are trying to do but the filewatcher can become unstable over time. So first off do you run the application that is hosting the filewatcher as a windows application or as a service? Why are you running so many filewatchers?
|
|
|
|
|
Hi Kevin!
It's running as a windows application. Basicly I need the server to control the client software 90% of the time, at will. For example, when a button on the server is pressed, form 1 opens on the client. When button 2 on the server is pressed, a timer starts on the client. The user at the client has very little control.
I have tried .Net Remoting, but havent been very successful at it. I thought about creating events that stop and start the filewatches at certain times. Just haven't gone down that road yet.
Why would a filewatcher become unstable over time?
Thanks!
Rudy
|
|
|
|
|
Most of my experience with FileWatchers is in the services realm I just don't use them that much in windows applications so there may be differences. To be precise I believe the Filewatchers become unstable because of the code they are running in. The threading in the Filewatcher can cause other contention issues in the application particularly when you are running timers also.
I periodically recycle the services and this seems to solve the issue but that is not good design. I am more prone to running them inside of their own class now and tearing that down and re instantiating it periodically disposing of all resources. I also try to use as few filewatchers as possible and change where they are pointing in code so I have fewer moving parts to keep track of.
So far it has been pretty stable but this is in windows services not windows applications which should not be an issue but they are much less complicated. What I have done is 180 degrees from what you are doing so there are clear differences. I use logging quite a bit to track down issues with timers and filewatchers as well as the performance monitoring tools which has been helpful.
|
|
|
|
|
Thanks for the tips Kevin!!
Rudy
|
|
|
|
|
i convert a project of C# to Vb.net, then in vb.net one warning messege appear in following line
Imports System.Management
warning is:::
Warning 1 Namespace or type specified in the Imports 'System.Management' doesn't contain any public member or cannot be found. Make sure the namespace or the type is defined and contains at least one public member. Make sure the imported element name doesn't use any aliases.
as well as some of its component giving error ,like
ManagementObjectSearcher
Error 2 Type 'ManagementObjectSearcher' is not defined. <br />
etc...
someone know the cause\solution....????
|
|
|
|
|
You must add a reference to the System.Management namespace in VB.
Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.
|
|
|
|
|
hey nice, its working, i got new thing today
|
|
|
|
|
Hello there,
sorry this is my first post.
I really urgently need someones help. Ive got this question for some work and I have no idea how to do it. The teacher hasn't shown us and I cant find anything to help me on the net. I need to complete this question as not doing it will mean I fail my course. PLease could somebody help me out. I Would be so appreciative!!
Here is the question -
This problem concerns some simple array handling.
Problem specification
Given an array of integers, you have to perform some integer calculations, and display some information concerning their number, their sum and average values, their minimum and maximum values, and the number of even and odd integers.
Method
Create an empty integer array that will hold up to 20 integers. Then, repeatedly read integer values from the keyboard until the user types zero. Afterwards, loop through the array and display the number of integers read (excluding the terminating zero), their sum (an integer), their average (a double), the minimum and maximum values encountered
(both integers), and finally the number of even and odd integers read (these should be declared as integers too).
Always exclude the terminating zero from your calculations.
Error conditions: If you encounter a negative number (e.g. -151), display the message
Negative number: -151
Don't take it into account in your calculations.
If you encounter a number greater than 100 (e.g. 199), display the message Value exceeds 100: 199 and exit immediately.
If there are no valid numbers in the array to process, display the message No numbers to process! and exit immediately.
To me it is really complicated and I have no idea where to start! Im completely stumped on how to do the calculations and incorporate them into the array! I have had a try and ive managed to build the array, but, it is rubbish and doesn't work very well.
I know this is asking a lot of someone but I really have no idea what to do. I've tried google and everything, searched the help files etc.
Please, please, please help.
John
|
|
|
|
|
new_rez wrote: The teacher hasn't shown us
This means one of three things.
1 - the teacher HAS shown you
2 - the teacher expects you to be able to find the info online or in your texts
3 - you have a bad teacher
I recommend asking some fellow students, if they agree on 3, complain to the school.
new_rez wrote: To me it is really complicated and I have no idea where to start!
I'm afraid that it's sufficiently trivial that I really don't see how I can offer any help without doing it all. I also am certain that the web abounds with information on how to create arrays, on how to read input from the keyboard, and on how to iterate over an array.
new_rez wrote: Im completely stumped on how to do the calculations and incorporate them into the array!
You don't incorperate anything in the array, you step over the array and you render the calculations to the screen.
new_rez wrote: I have had a try and ive managed to build the array, but, it is rubbish and doesn't work very well.
We love to help people, but we don't like doing people's homework verbatim. How about if you post your code, define 'doesn't work very well', and we can offer some help from there ?
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Sorry for my bad post.
Here is my code. The trouble I am having is working out how to find out the amount of odd/even numbers in the array and finding the maximum and the minimum amounts in the array.
'global variables
Dim intNumbers(19) As integer 'array with 10 elements
Dim intCount As Integer 'control the array
Private Sub txtNumbers_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNumbers.KeyPress
'if not enter - do nothing
If Asc(e.KeyChar) <> 13 Then
Exit Sub
End If
'add one to count
intCount = intCount + 1
'add number entered to the correct array index
intNumbers(intCount) = CDbl(txtNumbers.Text)
txtNumbers.Clear()
txtNumbers.Focus()
'when ten values have been entered - stop input
If intCount = 9 Then
MessageBox.Show("Array full. Please choose next option", "")
lblNumbers.Visible = False
txtNumbers.Visible = False
lstNumbers.Visible = True
btnAdd.Visible = True
btnDisplay.Visible = True
btnStats.Visible = True
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'set intcount at -1
intCount = -1
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
'add array elements to listbox
For intCount = 1 To 10
lstNumbers.Items.Add(intNumbers(intCount - 1))
Next
End Sub
Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
'display the element that the user chooses
intCount = InputBox("Please enter position of number", "", "", 240, 210)
MessageBox.Show("Number at postion " & intCount & _
" is " & intNumbers(intCount - 1), "")
End Sub
Private Sub btnStats_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStats.Click
'declare the total and average of the numbers entered
'variables
Dim dblTotal As Double
Dim dblAverage As Double
'total
For intCount = 0 To 9
dblTotal = dblTotal + intNumbers(intCount)
Next
'average
dblAverage = dblTotal / 10
MessageBox.Show("Your totals are:" & vbCrLf & _
"Total: " & Format(dblTotal, "0.00") & vbCrLf & _
"Average: " & Format(dblAverage, "0.00"))
End Sub
End Class
|
|
|
|
|
The main thing is that once the numbers are stored in the array I don't know how to use them to do the calculations. I also don't know how to check through and label the negative numbers.
|
|
|
|
|
Error conditions: If you encounter a negative number (e.g. -151), display the message
Negative number: -151
Don't take it into account in your calculations.
If you encounter a number greater than 100 (e.g. 199), display the message Value exceeds 100: 199 and exit immediately.
If there are no valid numbers in the array to process, display the message No numbers to process! and exit immediately.
OK, basically, what you need to do, is do what you're doing now ( adding the numbers to get an average). But, you need to use a counter to remember how many numbers you added. If you find a negative number, don't add it, don't increment the counter, and display a message that you found such a number. Again, on the console this would be trivial. As it stands, you need to build it into your GUI, so you probably want to use a string builder to build the end result message with all the info you want to show, and then assign it to a labgl. Use Environment.NewLine to put newlines in your string.
If you find a number greater than 100, then put your string into the display message and break out of your processing. You may need a bool to tell you if you still need to calculate the average or not.
If the number of valid numbers found at the end of processing is 0, then you can show the 'no valid numbers found' message instead of an average.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
I will give incorporating those steps, in code, into my code. That really does help me so much. I have a tendency to confuse myself easily and panic and then not know what im doing!
I did use an if statement for finding the Odd and Even amount of numbers, but, it wasn't working correctly. Every time Odd would be 11 and even would be 10...even if i had only entered 5 numbers. I think i've figured out the max and min thing. It shouldn't be really hard.
Any suggestions with the odd/even number amount?
Thank you
John
|
|
|
|
|
new_rez wrote: That really does help me so much. I have a tendency to confuse myself easily and panic and then not know what im doing!
Yeah, the hard part is often working out exactly the steps you need to take.
new_rez wrote: Any suggestions with the odd/even number amount?
I didn't spot that question ? The mod operator will do that, I think in VB it's actually Mod (it's % in C# or C++ ).
So, set a variable called oddnumbercount. Then, on the way through add one to it if yourvalue Mod 2 > 0. Then, subtract this from your total for the number of even numbers.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
First question - Why are you writing this as a Windows Forms application? At your level (and from reading the assignment) this should be a console application.
In a console application you can read from the keyboard more easily
Dim line As String
line = Console.ReadLine()
|
|
|
|
|
This is how we have been taught to write programs. I have no idea about console applications. The teacher has never mentioned it.
|
|
|
|
|
new_rez wrote: This is how we have been taught to write programs. I have no idea about console applications. The teacher has never mentioned it.
Really? If that is the case the state of your course is terrible. You should be writing simple console applications to learn about simple stuff like arrays. Learning about an event driven paradigm first is a bit crazy because you lose the sense of the flow of control of your program becuase you are placing that in the hands of the user.
|
|
|
|
|
Yeah, I despair at the people who self teach in this manner ( I've had people told me 'I wrote hello world, I don't need to write console apps', his posted sample code told a different story ), but for a course to teach like this is inexcusable.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
OK, your teacher IS an idiot. You don't need a GUI for this app, and having to write GUI code will just distract you from the exercise at hand.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
