Visual Basic

14-Jan-06 8:18

I am writing some code in VB.NET which I parse a string to remove the domain name and back slash but the back slash remains in the TextBox. Here is the code.

Dim myStartPointer As Integer = Me.ebLoginName.Text().IndexOf("\")
Dim myLength As Integer = Me.ebLoginName.TextLength()
If myStartPointer > 0 Then
Me.ebLoginName.Text() = Mid(Me.ebLoginName.Text(), _
myStartPointer + 2, myLength - myStartPointer + 1)
Me.mccDomain.Clear()
End If

Bob Zagars
Senior Software Engineer

Joshua Quick14-Jan-06 8:40

Re: Remove the (Forward) slash in a TextBox

14-Jan-06 8:40

Domain names have forward slashes in front of them, not back slashes. For example:

http://www.codeproject.com

Bob Zagars14-Jan-06 8:46

Re: Remove the (Forward) slash in a TextBox

14-Jan-06 8:46

Sorry for the wrong term been working long hours. Still should I re-post or can you answer my question?

Bob Zagars
Senior Software Engineer

-- modified at 14:47 Saturday 14th January, 2006

Joshua Quick14-Jan-06 9:00

Re: Remove the (back) slash in a TextBox

14-Jan-06 9:00

But in your code you are doing a string search for a back slash.

Dim myStartPointer As Integer = Me.ebLoginName.Text().IndexOf("\")

Or was this a typo too?

Bob Zagars14-Jan-06 10:38

14-Jan-06 10:38

Then it is back slash.

A domain name is prefixed wih DOMANINAME\username.

When a user is defined with Windows Authentication it uses this format listed above. The original code was correct and works but does not remove the BACK SLASH.

If a user want Windows Authentication the domain name is necessary, otherwise it is the user name and a password has to be entered in another location on the form.

This is not a TYPO!

Bob Zagars
Senior Software Engineer

Joshua Quick14-Jan-06 11:07

14-Jan-06 11:07

The issue is on line 3. If the first character in the string is a '\', which it likely will be with a path such as "\\Foo\Bar", then the index will be zero causing it to skip over your If condition.

You should change it to >= 0, like this...

If myStartPointer >= 0 Then

Bob Zagars14-Jan-06 11:28

14-Jan-06 11:28

That would cause a problem if the back slash was at postion 0. This error happens even when the position is in the middle of the string.

Example MYDOMAINNAME\myusername

The results is from my code \myusername

If I add one to the start position of the Mid() method I will get \yusername

The code has nothing to do with the starting position it has to do with the removal of the back slash.

Bob Zagars
Senior Software Engineer

Joshua Quick14-Jan-06 12:22

14-Jan-06 12:22

Bob Zagars wrote:
That would cause a problem if the back slash was at postion 0. This error happens even when the position is in the middle of the string.

Your code has 2 bugs in it then. The first one I already mentioned. The second bug is with how you're extracting the substring.

You are being confused by the Mid() function. Mid() is a function that was used in VB6 and only exists in VB.NET for compatibility reasons. Mid() expects 1 based indexes, which is the way indexing used to work in VB6. The .NET String class uses zero based indexes. This is why you are one character off.
You should call String.Substring() instead.

Bob Zagars14-Jan-06 12:38

14-Jan-06 12:38

Dim myStartPointer As Integer = Me.ebLoginName.Text().IndexOf("\")<br />
Dim myLength As Integer = Me.ebLoginName.TextLength()<br />
Dim myString As String = Me.ebLoginName.Text()<br />
If myStartPointer >= 0 Then<br />
   Me.ebLoginName.Text() = myString.Substring(myStartPointer + 1)<br />
   Me.mccDomain.Clear()<br />
End If

Same problem can not get rid of back slash.

myStartPointer is suppose to be the indexed location of the back slash.

Input string MYDOMAINNAME\test
Results \test

Bob Zagars
Senior Software Engineer

Joshua Quick14-Jan-06 12:58

14-Jan-06 12:58

Bob Zagars wrote:
Dim myStartPointer As Integer = Me.ebLoginName.Text().IndexOf("\")
Dim myLength As Integer = Me.ebLoginName.TextLength()
Dim myString As String = Me.ebLoginName.Text()
If myStartPointer >= 0 Then
Me.ebLoginName.Text() = myString.Substring(myStartPointer + 1)
Me.mccDomain.Clear()
End If

I've just ran your above code with the string "MYDOMAIN\test". It worked for me. Either the input string is not what you expected or the problem lies elsewhere in your code. In either case, I recommend that you step through your code in the debugger and keep a sharp eye on your ebLoginName.Text property.

Bob Zagars14-Jan-06 13:14

14-Jan-06 13:14

Joshua Quick wrote:
Dim myStartPointer As Integer = Me.ebLoginName.Text().IndexOf("\")
Dim myLength As Integer = Me.ebLoginName.TextLength()
Dim myString As String = Me.ebLoginName.Text()
If myStartPointer >= 0 Then
Me.ebLoginName.Text() = myString.Substring(myStartPointer + 1)
Me.mccDomain.Clear()
End If

I've just ran your above code with the string "MYDOMAIN\test". It worked for me. Either the input string is not what you expected or the problem lies elsewhere in your code. In either case, I recommend that you step through your code in the debugger and keep a sharp eye on your ebLoginName.Text property.

Okay this tells me something because I thought I was crazy and could not understand how my results kept adding a back slash. I am using a class library from Janus Systems. It is their EditBox which has to be the problem. I will submit at their web site.

Thanks for your help.

Bob Zagars
Senior Software Engineer

Bob Zagars14-Jan-06 11:40

14-Jan-06 11:40

You are dead wrong. Here is the class String Indexof() method.

"Reports the index of the first occurrence of the specified String in this instance."

....

"Return Value
The index position of value if that string is found, or -1 if it is not. If value is Empty, the return value is 0."

I have not tested at the first position which might be position 0 or 1 but my problem is not related to this issue. Mine happens in the middle of the string.

Bob Zagars
Senior Software Engineer

Joshua Quick14-Jan-06 12:04

14-Jan-06 12:04

Bob Zagars wrote:
You are dead wrong.

I'm not wrong. Your code does fail if a back slash is found at index 0. Try this string: "\\Foo".

Bob Zagars14-Jan-06 12:10

14-Jan-06 12:10

Joshua Quick wrote:
I'm not wrong. Your code does fail if a back slash is found at index 0. Try this string: "\\Foo".

I am sorry but my code will never have "\\" in it only DOMAINNAME\username which I am getting off the problem, If you do not have an answer that will solve my problem stop replying.

Bob Zagars
Senior Software Engineer

CodyGen15-Jan-06 4:37

CodyGen

15-Jan-06 4:37

you can use the Replace method of the string.

newstring = strbackslash.Replace("\","")

Dave Kreskowiak15-Jan-06 16:35

Dave Kreskowiak

15-Jan-06 16:35

Or just get the code right in the first place and forget about this little "patch".

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

invoke to marshal

Makniteasy14-Jan-06 8:07

Makniteasy

14-Jan-06 8:07

i was told i need to use invoke to marshal to fix this exception : Control 'TxtFolderActivity' accessed from a thread other than the thread it was created on. i cant seem to figure it out. here is the snippet of code where i need the invoke.

 <br />
<br />
Private Sub logchange(ByVal source As Object, ByVal e As _<br />
                        System.IO.FileSystemEventArgs)<br />
<br />
       <br />
        If e.ChangeType = IO.WatcherChangeTypes.Changed Then<br />
            TxtFolderActivity.Text &= "File " & e.FullPath & _<br />
                                    " has been modified" & vbCrLf<br />
        End If<br />
<br />
        If e.ChangeType = IO.WatcherChangeTypes.Created Then<br />
            TxtFolderActivity.Text &= "File " & e.FullPath & _<br />
             " has been created" & vbCrLf<br />
        End If<br />
        If e.ChangeType = IO.WatcherChangeTypes.Deleted Then<br />
            TxtFolderActivity.Text &= "File " & e.FullPath & _<br />
                                    " has been deleted" & vbCrLf<br />
<br />
        End If<br />
<br />
    End Sub<br />

Makniteasy

Re: invoke to marshal

Joshua Quick14-Jan-06 8:52

Passing values to a page.......

14-Jan-06 8:52

You're not allowed to interact with a Form on a separate thread.

What you need to do is call BeginInvoke(). What this will do is push a delegate to the end of the Windows message queue. That delegate will be invoked on the UI thread, which will allow you to safely write your string to the TextBox.

The following article has more information. See the code example at the bottom.
http://www.codeproject.com/csharp/begininvoke.asp[^]

daviiie13-Jan-06 23:14

daviiie

13-Jan-06 23:14

If I have a web form, and a button. How do I work it that when that button is pressed it will redirect the user to another webform. And on that new webform there will be a standard label, and the labels text will change to a value specified in the button on the first web form.

Does that make sense? Hope it does, any help appreciated.

Re: Passing values to a page.......

mrabaya14-Jan-06 7:21

mrabaya

14-Jan-06 7:21

Hi
to move from one page to another (redirect) use this code

server.transfer("Your Path or the form name you want to go to")
ex: server.transfer("WebForm2.aspx")

to make the label on the second page change and to pass a certain value to it you can do that in different ways:
1. to set a cookie value and retreive it on the form
2. to pass the value as a URL variable to the new form
3. to set a session and retreive its value on the new form

I hope that i have helped you!
Best wishes
Regards

Mohammad Rabay'a

Hi I 'm new Need Help abt VB

gorillazpetersu13-Jan-06 20:05

gorillazpetersu

13-Jan-06 20:05

Dear all

I am wondering that in VB is there a way to compare the system time and the schedule time stored in MS Access database??

Thanks alot. Hope to hear from u soon cos i m in urgent
Peter

Re: Hi I 'm new Need Help abt VB

Joshua Quick13-Jan-06 21:45