|
Hi There
Thanks so much, you made it look so simple. I was kinda stressing out. I hope it works. Thanks again
|
|
|
|
|
hi everyone,
i know this is very simple question.
i want to split my string on the basis of seperator
my code is following
Dim path,str,seperat As String<br />
str="0\0\0\0and--->Caption1"<br />
seperat="and--->"<br />
Dim Title As String<br />
Dim ItemInfo() As String = str.split(seperat)<br />
path = ItemInfo(0)<br />
Title = ItemInfo(1)
now i want to path contains "0\0\0\0". here i get correct result using above code but in title i want to store "Caption1"(on basis of seperator) but it stores "nd--->Caption1".
can anybody told where i m wrong?
how can i solve this problem?
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
My Company
|
|
|
|
|
Change the separator if possible, otherwise first replace your separator string with a character separator and then perform spliting operation using ur new character separator.
You can use Replace function to replace strings or characters in a string with other strings or characters.
|
|
|
|
|
hi iprasad2007,
i already know this thing but i want to split my string on the basis of its substring not on any character. sorry,but this is not the answer of my question.
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
My Company
|
|
|
|
|
The problem with this is that the split function expects a array of chars and when you give it a string it just uses the first char (in this case the "a"). I don't imidiatly know how you could solve this but I have a workaround:
Dim path, str, seperat As String
str = "0\0\0\0and--->Caption1"
seperat = "and--->"
Dim Title As String
str = str.Replace(seperat, "~")
Dim ItemInfo() As String = str.Split("~")
path = ItemInfo(0)
Title = ItemInfo(1)
basicly the same code just that I replace the seperat string with "~" before splitting. This way ther is only 1 char to split on (or string of 1 char) and it works perfectly
hope this helps
|
|
|
|
|
Im not sure if you want to use pure .Net code or not, but if you dont you can do this:
Dim path, str, seperat As String<br />
str = "0\0\0\0and--->Caption1"<br />
seperat = "and--->"<br />
Dim Title As String<br />
Dim ItemInfo() As String = Split(str, seperat)<br />
path = ItemInfo(0)<br />
Title = ItemInfo(1)
The piece of code in bold italic is the VB6 way of doing it using strings and as you can see can it be used in VB .Net once the Microsoft.VisualBacic Namespace is included
Hope this helps.
|
|
|
|
|
Thanks keith,
its work
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
My Company
|
|
|
|
|
I believe the function you are looking for is a tokenize function (split a string by a delimiter(separator))
EDIT: I tried to write one here for you but got confused, I will tommorow when I got more time.
EDIT AGAIN: Mine doesn't fit in memory.
-- modified at 3:12 Saturday 1st September, 2007
All of my programs are downloadable at fahadsadah.co.nr
|
|
|
|
|
Hi All
As my subject suggest i have a vb.net Application. Whilst its running does not allow my computer to logoff. I have tried this on two other machines to no avail. Any suggestions. ??
I didnt include code because I don't think its necessary .
Cheers
Dom
|
|
|
|
|
Windows would prefer all applications to end cleanly when it shuts down. It therefore waits until they do so. But after a while it should pop up a dialog asking if you want to "End Now" which forces the application to close.
The application is obviously not responding to the shutdown event. This could be because it is performing an extended operaration without responding to events.
Why type of application is this?
|
|
|
|
|
Hi Colin thats what I thought so something must be wrong.
Its a windows app.
Its starts off with a form starting at runtime named Hidden
here is the code that triggers at load
<br />
Private Sub Hidden_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
xSock.UDP_Listen(10080)<br />
AddHandler xSock.DataArrival, AddressOf UDPArrival<br />
End Sub<br />
in the above code it calls a class method as below
<br />
Public Shared Function UDP_Listen(ByVal Port As Integer) As Boolean<br />
Try<br />
UDP_Server_Port = Port<br />
UDP_Server = New UdpClient(Port)<br />
thdUdp = New Thread(AddressOf GetUDPData)<br />
thdUdp.Start()<br />
Catch e As Exception<br />
RaiseEvent Sock_Error(e.ToString)<br />
End Try<br />
<br />
End Function<br />
<br />
Private Sub UDPArrival(ByVal vData As String)<br />
TextBox1.Text = vData<br />
txtText.Text = vData<br />
xSock.UDP_Send("127.0.0.1", 10090, vData)<br />
End Sub<br />
so can you see how i can resolve this issue ?
THanks so far 
|
|
|
|
|
you're problem is (I think) you start a new threat but never stop and close it so this thread still exists and on shutdown (of windows) windows does not know what to do with it (I think)
try the following (just a guess)
in the formclosing of you're main form put application.exit this should close all threads at once
or you could just close the thread when it has finished
hope this helps
|
|
|
|
|
yep gave it a try but no luck unfortunately
I have a sneeky feeling the form_closing is not firing when i try to exit or lof off..
surely someone knows why my crappy code is not working
thanks anyway TDDragon =)
|
|
|
|
|
Is there not an event on the application class that fires when Windows issues a shut down command? (It's been a while and I might be a bit rusty on that)
|
|
|
|
|
nothing i can see thats fairly obvious.
anyone else
thanks Colin anyway
|
|
|
|
|
It would appear your UI thread is blocked somewhere, but it's not obvious in the code you've posted. Single step through the execution of your server and watch the code run, line-by-line. If the debugger gets to a statement where it stops and doesn't execute the next line, you've found the block.
|
|
|
|
|
I am having a report folder which is based on crystal reports 4.3. I want to make this folder as virtual folder to the people who are all using the application.It's urgent.
Sivaraman.
|
|
|
|
|
What do you by a "virtual folder"??
sivaraman_sankaranarayanan wrote: It's urgent.
So what? If you want "urgent support", go pay Microsoft for it.
|
|
|
|
|
sivaraman_sankaranarayanan wrote: It's urgent.
How rude and makes people less inclined to help.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
|
|
|
|
|
Hello guys, im having trouble to write the code to select the next row in the datagrid.
Looked around and found this but it doesnt work;
datagrid.Select(1)
fyi: im on vb .net 2005 sp1
thanks in advance!
|
|
|
|
|
Hi,
Try this Me.BindingContext.Item(dg.DataSource, dg.DataMember).Position += 1
*dg = DataGrid
hope this helps
|
|
|
|
|
Hello,
VS 2005
I have a datagridview (order details) that is bound to a combo box (orders). Both controls are bounded using the bindingsource (bsOrders, bsOrderDetails)
The user will select a order from the combo box, and all the order details will be displayed in the datagridview.
The problem I am having, is that the user can edit the cells in the dgv, when they select another order from the combo box, those edits will disappear when they select that order again.
I don't want the cell changes to be commited to the database, only that they stay in the cell when the user selects from the combo box.
I have tried using the dgv.EndEdit() in the selectChangedCommitted event of the combo box. But this doesn't seem to have worked.
Many thanks for any suggestions,
Steve
|
|
|
|
|
VB6 HTML elements offsetParent recursive problem
How to recursively go through all parent elements of the current element on html page?
I do this and get error 
While (TypeOf elem Is IHTMLElement)
parentall = "-Parent Tag=" & elem.offsetParent.tagName & _
elem.id & ",l=" & elem.offsetLeft & ";t=" & elem.offsetTop & _
Set elem = elem.offsetParent
Wend
|
|
|
|
|
This code snippet doesn't call itself, so how is this recursive?? This is just enumerating the elements at a single level. Perhaps a bigger snippet would help?? One that shows the rest of the code this snippet shows up in.
|
|
|
|
|
I have dropped all my emails into an access database, and now building a vb.NET windows app to query to return needed email bodies. The application runs through the database dataset function and returns 0 rows. I console.writeline the connection string and SQL statement and am able to pull records from the database. I can't see what I have wrong in the code. The function hitting the database is listed below. Please any help would be a really great thing. Thanks in advance.
Public Function GetSelectAnd2Records(ByVal strTableName, ByVal strCriteria1, ByVal strCriteria3) As DataSet
Dim ds As New DataSet
Dim strSQL As String
Dim dbConn As New OleDbConnection
dbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NovaEmailKB\KNOWLEDGE BASE SSC.mdb;"
strCriteria1 = "*" & strCriteria1 & "*"
strCriteria3 = "*" & strCriteria3 & "*"
strSQL = "SELECT [ID], [Subject], [Body], [Received], [From] " & _
"FROM " & strTableName & " " & _
"WHERE (((Body) Like """ & strCriteria1 & """ And (Terminals.Body) Like """ & strCriteria3 & """)) " & _
"ORDER BY Received DESC; "
Dim cn As New OleDbConnection(dbConn.ConnectionString)
Dim cmd As New OleDbCommand(strSQL, cn)
Dim da As New OleDbDataAdapter(cmd)
Console.WriteLine(dbConn.ConnectionString)
Console.WriteLine(strSQL)
Try
cn.Open()
Console.WriteLine(cn.State)
cmd.Connection = cn
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
da.Fill(ds, "SelectAnd2Rtn")
If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Dispose()
cn = Nothing
da.Dispose()
da = Nothing
Catch ex As Exception
MsgBox("An unexpected MS Access error has occured: " & ex.Message)
If cn.State = ConnectionState.Open Then
cn.Close()
End If
cn.Dispose()
cn = Nothing
da.Dispose()
da = Nothing
Return Nothing
Exit Function
End Try
Return ds
End Function
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
