|
I tried your function and I am getting the following error message on "lvReadFileOut(Index) = srReader.ReadLine()". Do you know how I could fix this?
Error:
"An unhandled exception of type 'System.NullReferenceException' occurred in eLS.exe. Additional information: Object reference not set to an instance of an object."
I am kind of new to programming so I am not too familiar with the class. Do you have an example of this?
Idealy I want to replace lines of a file without having to read it into a variable then write it back out to a new file. I also want a solution that is quick and ifficient.
Thanks,
|
|
|
|
|
Zenly wrote:
Idealy I want to replace lines of a file without having to read it into a variable then write it back out to a new file.
I'm not going to ask why you tried to read a 200MB file into a string variable then.
Zenly wrote:
Idealy I want to replace lines of a file without having to read it into a variable then write it back out to a new file. I also want a solution that is quick and ifficient.
Then process the file one line at a time. The solution is to open TWO file streams. One for reading the source file and the other for writing the destination file. Read the source file, using .ReadLine(), into a string variable, call your Replace function on it, then write the new line out to your second file. Keep doing this until you reach the end of the source file, see the example code for the reference to Peek. If Peek returns anything less than 0, you've reached the end of the file.
Private Sub ProcessFile(ByVal sourceFilePath As String, ByVal destFilePath As String)
If File.Exists(lvFilePath) = True Then
Dim lineToProcess As String
Dim srcStream As New StreamReader(sourceFilePath)
Dim destStream As New StreamWriter(destFilePath)
Do While (srcStream.Peek >= 0)
lineToProcess = srcStream.ReadLine()
Replace(lineToProcess, "d:\directory1", "")
destStream.WriteLine(lineToProcess)
Loop
srcStream.Close()
destStream.Close()
End If
End Function
* This code is not guaranteed to compile, let alone work. It is intended as a guide only, to be worked out and fixed by you, the reader!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks you so much for helping me with this. I am now able to read,replace, and write to a new file within 30seconds. And not adversly affect my system.
Thanks,
|
|
|
|
|
Hey,
I really need to be able to make a button that stops my ThreadPool but i am really stuck on how to do it.
Any help would be greatly appreciated as this is really urgent
Chris
|
|
|
|
|
Hi, I need find the handle of button "OK" of Application, and later to push it. I've used this method, but it's very difficult for me, can anyone help me, please?:
Dim handleRefresh As IntPtr
Dim pdwSize As Long
pdwSize = FindWindow(vbNullString, "OK")
handleRefresh = Marshal.AllocHGlobal(Marshal.SizeOf(pdwSize))
SendMessage(handleRefresh, WM_LBUTTONDOWN, 0, 0)
SendMessage(handleRefresh, WM_LBUTTONUP, 0, 0)
RDG, thanks!
|
|
|
|
|
Hi
I am developing an application which requires me to parse HTML pages and gathervarious information such as title, author etc. i figured out that the best way to do this is to use regular expressions. while using regular expressions, i faced a lot of problems, one was of proper expression and then the other one was how to extract the complete strings . actually first to check whether there is author, then get its contents.
Can anyone help me with this, sample code would be of great help.
thanks in advance.
|
|
|
|
|
How can I change a main menu's bar colour?
I can change menuitem color. But i want to change color of whole bar (complete menu bar from 0 to 100%).
Is it possible to change it?
Thanks
Sumit Domyan
|
|
|
|
|
The the menu bar color is determined by the system (Display properties, Appearance tab), coloring is not supported. You'll either have to write your own MainMenu class, inheriting from MainMenu, and ownerdraw the menu bar yourself, search the articles on CP for an example, or use a third party component that exposes this kind of functionality.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi there,
Is there anyone know how to make a windows form listview control always automatically scroll to the last item when loading lots of items into the list? Thanks a lot.
Frank
|
|
|
|
|
Try this, right after populating the list view:
lvMyListOfItems.ListItems(lvMyListOfItems.ListItems.Count).Selected = True
that's it!
Cheers,
Pablo.ar
|
|
|
|
|
Thanks, Pablo.ar. But it does not work, because what I need it is to always show the last item while the items are loading.
Frank
|
|
|
|
|
Just put that line right at the end (still, inside!) of the loop block:
Do
...your block of code
...your block of code
...your block of code
lvMyListOfItems.ListItems(lvMyListOfItems.ListItems.Count).Selected = True
Loop
So, right before the loop loops, it will select (and scroll to) the last item.
Pablo.ar
|
|
|
|
|
Hi Pablo
Thanks for your reply. But I think you might be talking about some list control other than MS ListView, since ListView does not have ListItems property (while it does have Items property). And your statement can be:
lvMyListOfItems.Items(lvMyListOfItems.Items.Count - 1).Selected = True
This statement will select all the items after the loop completes. However, it can not auto-scroll the listview while loading items. It is another stupid MS control, since many other third-party controls can do it without any code. Meanwhile, kostasV provides a solution that meets my need. Thanks again for your time.
Frank
|
|
|
|
|
If you still want to give a try to the way I showed you, make sure you set the listview property 'Multiselect' to false.
I think that's why the code I gave you didn't work, anyhow, you did get the solution in a better way.
1st class code there, kostasV!
Pablo.ar
|
|
|
|
|
Thank you, Pablo.ar.
Frank
|
|
|
|
|
Me.ListView1.EnsureVisible(Me.ListView1.Items.Count - 1)
|
|
|
|
|
Thanks a lot, kostasV. That is really what I need.
Frank
|
|
|
|
|
For a public function for batting averages would this be right?
Dim outcome(10) As String
'declaring an array
outcome(0) = "single"
outcome(1) = "double"
outcome(2) = "triple"
outcome(3) = "home run"
outcome(4) = "strike"
outcome(5) = "ground out"
outcome(6) = "fly out"
outcome(7) = "walk"
outcome(8) = "sacrifice bunt"
outcome(9) = "sacrifice fly"
outcome(10) = "hit by pitch"
'Step through the array and add the values
For i = 0 To strPlateAppearance.Length - 1
total += strPlateAppearance(i)
Next
'Divide by the number of elements in the array
'Assing the result of the Function Name and it will become the 'returned' value
CalculateBattingAverage = total / strPlateAppearance.Length
|
|
|
|
|
hey,
So you want to figure out a batting average of a player?
i am not good with baseball averaging i just watch it ......
Wat does a single,a double etc.... equal? (how many points?)
and are u doing a window Form or a console form???
|
|
|
|
|
yeah i'm not too good at averaging either just watching....but im trying
I set it up like this
single = hit
double = hit
triple = hit
home run = hit
stike = miss
ground out = miss
fly out = miss
walk = n/a
sacrifice bunt = n/a
sacrifice fly = n/a
hit by pitch = n/a
Then I put it If "hit" then inthits +1 intatbats +1 n/a the same and miss the same
all toogether its inthits/intatbats while intNA = 0 then no offical atbats with an average of 0 still
|
|
|
|
|
okay
I think i got what you are saying.
You can start a Window Form...New->Project->vb->WindowApplication
i can show you how to make this program with a window form
care to see?
|
|
|
|
|
absolutely...I'm so stuck it's ridiculous. I started with the window form having the user enter the data into a textbox but after that I was stuck
|
|
|
|
|
okay i will make it....and send you the code for it.
|
|
|
|
|
is this a game? or a caulation....because i am coding the caculation program
|
|
|
|
|
its a calculation program...
actually do you think a select case statement would be better or the array?
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
