|
Anonymous wrote:
Dim sr As New StreamReader("c:\test.txt")
Dim sw As New StreamWriter("c:\did it work.txt")
Do Until sr.Peek() = -1
If sr.ReadLine.StartsWith("LIN") Then
sw.WriteLine(sr.ReadLine.ToString)
End If
Loop
sr.Close()
sw.Close()
The problem is you told the StreamReader (sr) to read the next line when you went to write the line you just read. The code should read like this:
Dim sr As New StreamReader("c:\test.txt")
Dim sw As New StreamWriter("c:\did it work.txt")
Dim strLine As String
Do Until sr.Peek() = -1
strLine = sr.ReadLine()
If strLine.StartsWith("LIN") Then
sw.WriteLine(strLine)
End If
Loop
sr.Close()
sw.Close()
Also, calling .ToString on a String variable is unnecessary. ReadLine always returns a String...
RageInTheMachine9532
|
|
|
|
|
Is there any way(probably api) to know which words are occured most frequently in MSWord Documnet. I am developing add-in and want to get
the list of and number of occurence word before you save the document?
Thanks
Shinya
|
|
|
|
|
You'll have to write the code to build that table since Word doesn't track that kind of information. Word can probably return individual "word" objects and you can use those to build a key->value dictionary. If the word isn't in the dictionary, add it set it's value to one. If it is in the dictionary, increment it's value. When you're done counting words, convert the dictionary to a 2D array of values and sort it on the counts. You'll then have the most often used word at the top.
RageInTheMachine9532
|
|
|
|
|
I want to be able to create an html file through a vb program that I have writtin what is the eaysist way to do this??
|
|
|
|
|
You didn't supply enough information about what you want to do like what does the VB program, that you've written, DO? And what are you doing with the HTML file?
But since you asked...open a file for Output with the Open statement and use Print #<filenumber> statements to output the text that will make up the HTML file, then use Close to close the file... 
RageInTheMachine9532
|
|
|
|
|
Well i am makeing a grading program for a teacher and i need to know how do output the grades and students id as an html so that he may post them on his web page i thought about what was stated earlyer but when you output a file i don't know how to change the file extenions so that it is an .html insted of a .dat or .txt
|
|
|
|
|
What do you mean by "changing the file extension"? Since your outputting the file from VB, you can make the file extension anything you want... Are you doing this in Excel or something else?
Well, first you have to have some code that you having problems with. Discussing design over a forum is notoriously difficult...
But, I'm assuming your doing this as a class project? I'm not going to write the code for you, and neither will anyone else here.
If you know HTML, you could start by putting together an HTML page with some phony data for mockup. You'll use this as a template when you write out your actual data. Basically, your program is going to output the HTML HEAD section, as plain text, then output a TABLE with all the header tags. When you get to outputting the data, you'll add the appropriate table row and detail tags with your data. Then you'll output the closing tags to your table and HTML body.
That's the hard way of doing it, but is simple in terms of HTML...
The easier way, but requiring a more in depth knowledge of HTML, XML and CSS, is to output an XML formatted version of all your data. You'll have to make up an HTML page that INCLUDES, as a seperate file, the XML data file with all your data formatted in whatever tags you wish to use, and a CSS file that contains the formatting to use for each of these tags. This is a FAR more flexible solution...
RageInTheMachine9532
|
|
|
|
|
Does anybody know how to run a scanner from vb.net. ex. have a button scan a image.
Thanks in advance
|
|
|
|
|
Hi
I have made a scanner program based on imgx www.imgx.net. They also have a Dot net version called dotimage.
Both solution is easy to use.
Good luck
Vilhelm Marstrand
|
|
|
|
|
Yah I had seen that at atalasoft.. I'm going to try that.. I had seen here on the site somebody had made a program to scan using twain.. Been looking at how they did it.
Thanks
Gerry
|
|
|
|
|
Hi,
Does anyone know if it is possible obtain the network usergroup of the currently logged on user? I want to use this as the basis for a security class in vb.net.
Thanks
|
|
|
|
|
Refer the msdn documentation for WindowsPrincipal.IsInRole method so that you can get some idea.
|
|
|
|
|
Hello,
I am new to vb.net and i am writing a billing application for a client. The application takes a bunch of raw numbers and does some filtering and calculations and puts time into different tables. The problem is that there are like 400,000 records of raw data. Now i put all the queries and calculations and filters in the onclick when the user hits the generate clean data button. The for is set up like this the user picks the month he wants to clean up by choosing the start date and enddate and then hits clean data button. My question is how can i make it go faster an I doing it wrong? It workes but it takes for ever like 20 mins and sometimes it freezes up. I will try and illistrate how i have it set up.
button_onclick
'first i get the raw data and up it into a new table
testdap.selectcommand.commandtext= "selece * form table"
for i=0 to dataset.table.row.count-1
cleandap.insertcommand.commandtext ="insert into cleantbl
(field1,field2,etc ) where (dataset.table.row(i).item("field1),etc)
I have like 17 of these actions where i get the data and put it in another table or clean it up and sometimes compare it to another table with thousands of records and if any two records match by account i put that row into another table. Well i hope you get the idea. I have all this being done when the user hits the button. Is there a better and fast way to do this, again i am know to .net and any help will be greatly appriciatied.
Thank you,
Santana
|
|
|
|
|
First, move your SQL statements to the SQL server so it can cache the execution plans for your statements. Second, I take it from your "Select * from table" that your returning all 400,000 rows?! No wonder it's taking forever... See if you can move some of this logic to SQL stored procedure and Trigger procedures so it can preprocess some of the data for you. If you have the server preprocess some of the data for you, you can improve the "apparent" speed of your application. Third, keep the number of records that SQL returns to your client to a minimum.
RageInTheMachine9532
|
|
|
|
|
Hi Santana
I think I can give you a hint in your problem.
Sometime ago I had to solve a problem where the app had to update one table from a file. The file contained approx. 400,000 records, and the app had to decide which are the new records, which need to be removed, and which to be updated.
Running it as a FOR loop would have taken ~11 hours. Running it using SQL cursors and FETCH NEXT SQL command - 7-8 hours. The following SQL stored proc it took 20 minutes:
tbl1 - table being modified
tbl2 - table which has all records from the file
[code]
UPDATE tbl1 set Inactive=1 where pID=@prid
UPDATE tbl1 SET Inactive = 0
FROM tbl2
WHERE tbl2.iID = tbl1.iID AND tbl1.pID = tbl2.pID
DELETE tbl2
FROM tbl1
WHERE tbl2.iID = tbl1.iID AND tbl1.pID = tbl2.pID
INSERT INTO tbl1 SELECT * FROM tbl2
DELETE FROM tbl2
[/code]
Hope this will help you.
Regards,
Serge (Logic Software)
|
|
|
|
|
I'm trying to create a project with an OLE connection to a Microsoft Access database. I don't see a choice for the Jet OLE DB provider as one of my choice in the wizard. Is that the right choice? How do I add it?
Thanks.
|
|
|
|
|
Simple, you don't...
The code you use to open a connection to the database does something like this:
Public Sub ConnectToAccess()
Dim conn As New System.Data.OleDb.OleDbConnection()
' TODO: Modify the connection string and include any
' additional required properties for your database.
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Documents and Settings\username\My Documents\dbFile.mdb"
Try
conn.Open()
' Insert code to process data.
Catch ex As Exception
MessageBox.Show("Failed to connect to data source")
Finally
conn.Close()
End Try
End Sub
Look in the VS.NET help for OleDbConnection, OleDbDataAdapter, and OleDbCommand for much more detailed information.
RageInTheMachine9532
|
|
|
|
|
|
I have created a user control that encapsulates a DataGrid. The DataGrid contains some inherited visual column styles that allow for editing in a custom textbox, combocbox, etc. The DataGrid is bound to a dynamically created DataTable. The trouble is: When I Tab from column to column, it steps through one and into the next. When I set a breakpoint anywhere, it behaves itself.
I suspect this is a threading problem. Any Ideas???
Thanx
Greg
|
|
|
|
|
hiiii
i want that somebody give me code to get the RGB values from an image and show in edit boxes.
its a bit urgent plz
regards
tahir
|
|
|
|
|
What you can do is use the Bitmap class GetPixel method to get the Color of that pixel, then use the Color class R, G, and B properties to get the values you want.
Dim MyImage As New Bitmap("C:\testimage.jpg")
Dim pixelColor As Color = MyImage.GetPixel(0,0)
Dim r As Byte = pixelColor.R
Dim b As Byte = pixelColor.B
Dim g As Byte = pixelColor.G
RageInTheMachine9532
|
|
|
|
|
Hi,
I have an array with emailaddresses that I have extracted from a file in an import function in my program. But the same e-mail adddress may occurre several times in the array if the user did add it several times in the file.
I need a way to delete duplicates and I need help. What I want is to replace an address (it will vary) with an emty string("") or a string I can later use for testing against(lest say the string "duplicate" is the replacement). I am having trouble with my loop or if. The inner if sentence does not work. I have put the e-mail addresses also in a second array called tab, and checks each value in the first array against each value in the second one. Any suggestions? This is what I have:
Dim K as integer=0<br />
Dim L as integer=0<br />
For Each email In emails<br />
For Each em In emails2 <br />
If K <> L 'if it is a duplicate <br />
If emails(L).ToLower().Equals(emails2.ToLower())then <br />
emails(K)="duplicate" End If<br />
End If<br />
L = L + 1<br />
Next<br />
K = K + 1<br />
'MsgBox(emails(K)) 'only shows the value of the last element in the array. Next
IF anyone have a solution for how to do this, or another suggestion for a solution using for example RegEx I would really appreciate it 
|
|
|
|
|
Try this logic
private void Email()
{
string[] emails = new string[]{"a@a.c", "a@a.c", "b@a.c", "b@a.c",
"a@a.c", "a@a.c", "b@a.c", "b@a.c"};
int j = 0;
for(int i = 0; i < emails.Length; i++)
{
for (j = i + 1; j < emails.Length; j++)
{
if (! emails[i].Equals("duplicate")
&& emails[i].Equals(emails[j]))
{
emails[j] = "duplicate";
}
}
}
string mbStr = "";
foreach (string str in emails)
{
if (! str.Equals("duplicate"))
{
mbStr = mbStr + str + ", ";
}
}
MessageBox.Show(mbStr);
}
|
|
|
|
|
Hi, and thanks for your help.
However I ended up trying out the StringDictionary like Ian suggested and I he opened a world of 'unknown' collections for me.
The code written by using a StringDictionary collection is shorter, so I'll stick with that for now. But I'll keep your code be cause I will probably need it some other time.
Thanks from Inger
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
