hente ut de 7 første bokstavene

[toss]

går det ann å hente ut de 7 første tegnene fra en textbox?

og så sjekke om de er feks. "http://", og hvis de ikke er det, legge det til?

er det da lettetst å lage en variabel av det i textboxen?

 

takk for svar

 

EDIT: skriveleif

 

EDIT 2: Prøver å forklare litt bedre her..

 

koden blir noe slikt:

  Private Sub btnGåTil_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGåTil.Click
       Dim url As Long
       url = txtURL.Text

       If url = "http://" Then
           WebBrowser.Url = url
       ElseIf url = "http://" And url Then
       End If
       WebBrowser.Url = txtURL.Text

   End Sub

'

 

men jeg vil at den skal sjekke om urlen begynner med "http://", ikke om den er det..

Endret 17. oktober 2004 av toss

[Jonas]

Private Sub btnGåTil_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGåTil.Click

If Not Left(txtURL.test, Len("http://")) = "http://" Then txtURL.Text = "http://" & txtURL.Text

WebBrowser.url = txtURL.Text

End Sub

Men hva er egentlig poenget med koden? Jeg er veldig sikkert på at WebBrowser gjør det selv.

[toss]

webbrowseren kan åpne sidene uten http:// forran, men jeg vil at dette automatisk skal komme opp hvis det ikke står der..

 

får opp en feilmelding om at "left" ikke har parametere og ikke kan idexeres..

[Jonas]

Når du skriver "Left(" får du vel opp noe tooltip? Hva står det der?

[toss]

når jeg skriver "left(" får jeg opp en gul rute hvor det står

Left() As Integer

gets or sets the distance, in pixels between the left edge of the control and the left edge of its container's client aera

[GeirGrusom]

Bruk Mid() istedet.

Public Function ValidateUrl(ByVal url As String) As String
 If Not (lcase(Mid(url, 1, 7)) = "http://") Then url = "http://" & url
 ValidateUrl = url
End Function

[Richard87]

OK, det virker som det er en bug i VB, men Left(url, 7) skal virke...

 

Eventuelt Left$(url, 7)