|
I am actually in a better place now with the code below. But here comes my problems:
1. the FileName will change from time to time
2. the myString will always StartsWith SOM*PE*ZZ*, but the last 4 digits will change. How do I make that variable?
Like I said, I have been testing the code below and except for the above 2 issues, its smooth sailing. I would greatly appreciate input in making the tweaks.
Imports System<br />
Imports System.Text<br />
Imports System.Windows.Forms<br />
<br />
Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click<br />
<br />
MessageBox.Show("you are about to translate file")<br />
MessageBox.Show("you are about to translate file")<br />
<br />
Dim refNum As String = Me.txtFileNum.Text<br />
Dim FileName As String = "C:\moviez_21.txt"<br />
Dim myString As String = "SOM*PE*ZZ*1041"<br />
<br />
Dim newString As New StringBuilder<br />
newString.Append(My.Computer.FileSystem.ReadAllText(FileName))<br />
newString.Replace(myString, myString & vbNewLine & "TODAY*007*" & refNum & "~")<br />
My.Computer.FileSystem.WriteAllText(FileName, newString.ToString, False)End Sub
|
|
|
|
|
Hm... why are you using a StringBuilder when you are not building a string?
You can use a regular expression to match the line and do the replacement. How about a one-liner: 
File.WriteAllText(fileName, Regex.Replace(File.ReadAllText(fileName), "(SOM\*PE\*ZZ\*\d{4})", "$1" + Environment.NewLine + "TODAY*007*" + refNum.ToString() + "~"))
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
Read line the lines using ReadAllLines, then open a StreamWriter on the file and write each line. When you come to the place where you want to add the line, just write it to the StreamWriter.
Despite everything, the person most likely to be fooling you next is yourself.
modified on Monday, January 26, 2009 12:51 PM
|
|
|
|
|
Hi All,
I am trying to dev a small application with login form, but i am not able to unload login form after confirming the user id and password.
Any help will be appreciated.
Thanks in advance.
Regards.
Zanzmera
|
|
|
|
|
me.close for close the form and form_name.show to show form
|
|
|
|
|
Your login form should NOT be your startup form. You applications main form should be the startup, checking to see if a user is logged in, and if not, the main form should create and show a login form.
|
|
|
|
|
Please try to use this code snippet
Sub Main()
Dim splash As New <<your-login-form-name>>
splash.Show()
Do Until isCompleted
System.Windows.Forms.Application.DoEvents()
Loop
splash.Close()
System.Windows.Forms.Application.DoEvents()
System.Windows.Forms.Application.Run(New <<your-main-form-name>>)
Catch ex As Exception
MessageBox.Show(ex.Message, "Sub Main:" + ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Information)
'' Do proper exception handling stuff here
End Try
End Sub
And Insert following code in case of log in successful in <your-login-form>
isCompleted
Me.Close()
Now, Set Sub Main as your startup object in Project properties
Hope I answered your query
|
|
|
|
|
I want to insert data from DateTimePicker to Access database but have error "Data type mismatch in criteria expression"
this is the code
Dim aCon As OleDbConnection
Dim aCmd As OleDbCommand
Dim strCon As String
strAcessFilePath = System.Windows.Forms.Application.StartupPath &; "\rabotnici.mdb"
'create connection with mdb file
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strAcessFilePath & ";User ID=Admin;Password="
aCon = New OleDbConnection(strCon)
aCon.Open()
strQuery = "insert into data_pr values(" + " '" + DateTimePicker1.Value + "'" + ")"
aCmd = New OleDbCommand(strQuery, aCon)
Dim da As New OleDbDataAdapter
da.SelectCommand = aCmd
aCmd.ExecuteNonQuery()
aCon.Close()
access database field format is Date/time
Can You help me thanks
|
|
|
|
|
Instead of concatenating values to sql strings, use parameters. That way you will avoid conversion problems (among many other things such as sql injections etc). Have a look at: OleDbParameter Class[^]
|
|
|
|
|
but this work when access field format is text
|
|
|
|
|
Yes it does and also it can be done for dates and numbers.
Access accepts dates in format #mm/dd/yyyy#. So for example today would be #01/25/2009# (without quotes).
However, I hope that you don't take this shortcut since it's not the proper way to go. I already mentioned sql injections which is prevented by using parameters. To give a few more examples that would be problematic:
- numbers, what if decimal separator is comma (as it is for example in my case). When updating a column you would have for example UPDATE ... SET ColumnName = 49,6 ... This would lead to an error
- text, what if your text contains a quote, for example: UPDATE ... SET ColumnName = 'Guns 'n' Roses'. Error again
- dates, input date is in different format. For example I use 25.1.2009 (Finnish format) etc.
So what I'm trying to say is that it's few more lines of code, but the quality and robustness of your application will greatly improve when you use parameters.
|
|
|
|
|
OK I try to use parameters thanks very much, but are you sure that work
|
|
|
|
|
ivo75 wrote: are you sure that work
See for yourself, that's what they are for
You could try something like this:
...
strQuery = "insert into data_pr values(?)"
aCmd = New OleDbCommand(strQuery, aCon)
aCmd.Parameters.AddWithValue("ColumName", DateTimePicker1.Value)
aCmd.ExecuteNonQuery()
...
|
|
|
|
|
not work give me this error again "Data type mismatch in criteria expression"
|
|
|
|
|
ivo75 wrote: "Data type mismatch in criteria expression"
This just means that the data type of the field in your database is not the same as the value that you are trying to write into it.
Did you try parametric method as suggested by Mika?
|
|
|
|
|
Could you post the code you're currently having.
|
|
|
|
|
Try this in your vb code:
CONVERT(DATETIME, '" &amp; Format(datetimepicker1.value, "MM/dd/yyyy") &amp; " 00:00:00', 102)
If this doesn't work change the code 102 to 101 or 103. It might be one of those codes that you need to use.
should do the trick
|
|
|
|
|
Tahnk You very much everybody this is the code who work
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strAcessFilePath & ";User ID=Admin;Password="
aCon = New OleDbConnection(strCon)
aCon.Open()
strQuery = "insert into rabotnici values(?,?,?)"
param1 = New OleDbParameter("@rabotnik_name", OleDbType.VarWChar, 100)
param1.Value = ComboBox1.Text
param2 = New OleDbParameter("@obekt_name", OleDbType.VarWChar, 100)
param2.Value = ComboBox2.Text
param3 = New OleDbParameter("@data_rabota", OleDbType.Date)
param3.Value = DateTimePicker1.Value.ToShortDateString()
aCmd = New OleDbCommand(strQuery, aCon)
aCmd.Parameters.Add(param1)
aCmd.Parameters.Add(param2)
aCmd.Parameters.Add(param3)
aCmd.ExecuteNonQuery()
aCon.Close()
this is work with parameters, again thanks
|
|
|
|
|
I have a stream of text on display in a multiline textbox. I would line to insert the following new line of text ("TODAY 007") in the line just below every occurences of "PRV*PE*ZZ*1041C0700X~". So the result should be:
PRV*PE*ZZ*1041C0700X~
TODAY 007
This should repeat to the end of the file.
How do I start to code this? Please if anyone has a code sample. Thanks
|
|
|
|
|
Read the file line by line and if the current line matches your pattern, put a line break character and insert the required text.
|
|
|
|
|
Here is the code I have so far, but when I invoke, nothing happens.
Dim sReader As New IO.StreamReader("C:\\File.txt")<br />
Dim CurrentLine As String = "TODAY 007"<br />
Dim DataLines As New System.Collections.Specialized.StringCollection<br />
<br />
Do While sReader.EndOfStream = False<br />
CurrentLine = sReader.ReadLine<br />
If CurrentLine.Contains("PRV*PE") = False Then<br />
DataLines.Add(CurrentLine)<br />
End If<br />
Loop<br />
sReader.Close()<br />
sReader = Nothing<br />
<br />
Dim sWriter As New IO.StreamWriter("C:\\File.txt")<br />
<br />
For Each CurrentLine In DataLines<br />
sWriter.WriteLine(CurrentLine)<br />
Next<br />
sWriter.Close()<br />
sWriter = Nothing
Any suggestions?
|
|
|
|
|
IvanIT wrote: If CurrentLine.Contains("PRV*PE") = False Then
DataLines.Add(CurrentLine)
End If
So, what are you going to do if the contains method returns True? Right now, you're just dropping the line and not doing anything with it. You've completely dropped your string of "TODAY 007" and the logic doesn't come close to following your specified requirements. Shouldn't your code read something more like:
Do While Not sReader.EndOfStream
DataLines.Add(CurrentLine)
If CurrentLine.Contains("PRV*PE") Then
DataLines.Add("TODAY 007")
End If
Loop
|
|
|
|
|
Dave, this is an excerpt of the code I used; the result is that the line is insert 1 time at the end of the text file rather than immediately after each occurence of my search string:
Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click<br />
MessageBox.Show("you are about to translate file")<br />
<br />
'read the file to find data<br />
Dim sReader As New IO.StreamReader("C:\moviez_21.txt")<br />
Dim CurrentLine As String<br />
<br />
Dim DataLines As New System.Collections.Specialized.StringCollection<br />
<br />
CurrentLine = sReader.ReadLine<br />
If CurrentLine.StartsWith("PRV*PE*ZZ*") = True Then<br />
sReader.ReadToEnd()<br />
End If<br />
sReader.Close()<br />
<br />
'modifying the file<br />
Dim oError As System.IO.StreamWriter<br />
oError = New System.IO.StreamWriter("c:\moviez_21.txt", True)<br />
<br />
'text to be inserted in after PRV*PE*ZZ*<br />
oError.Write("REF*LU*") ' + file number<br />
oError.Close()<br />
End Sub
Where did I go wrong?
|
|
|
|
|
This is nowhere near what you wrote before. And frankly, you didn't follow the logic you wrote, line by line, nor did you even look at the example I already gave you.
|
|
|
|
|
Dave, you are correct that my logic and coding have changed. Trust me, I appreciate all the feedback that I have gotten from this forum. I keep tweaking the suggestions until I get something that works. At this point, the code above works, with the 2 exceptions. I now need to figure out a way to reference the text file dynamically. Secondly, I discovered that myString will have different ending characters from time to time. As I plow thru, I learn new stuff. Thanks
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
