HEJ

Hur skriver man om man vill hämta de tio första bokstäver i en rad från listbox..t.ex så här ser ut raden i listboxen:

2002-09-10 Anders Andersson

så jag vill hämta bara de tio första tecken (2002-09-10) till en textruta


/Anders

Exempel på att ploka ut första raden:
<code>
Text1.Text = List1.List(0)

</code>
Exempel på att ploka ut tio första tecknen från första raden:
<code>
Text1.Text = Left$(List1.List(0), 10)

</code>
Exempel på att ploka ut tio första tecknen från första raden från markerad rad:
<code>
If List1.ListIndex = -1 Then
Text1.Text = ""
Else
Text1.Text = Left(List1.List(List1.ListIndex), 10)
End If
</code>

Hej

Du använder left()

ungefär så här:

Private Sub Command1_Click()
Dim text As String
Dim datum As String
text = "2002-09-10 Anders Andersson"
datum = Left(text, 10)
List1.AddItem datum, 0
End Sub

/bj

Tack för hjälpen och jag löste problemet också så här:


Dim Kolumnbredd(0 To 3) As Byte
Dim AntalKolumn As Byte

Private Sub Form_Load()
List1.AddItem "2002-09-10" & " " & "Anders" & " " & "Andersson"

Kolumnbredd(0) = 11
End Sub

Private Sub List1_Click()
Dim Temp As String
Dim i As Byte

Temp = List1.Text
For i = 0 To AntalKolumn
text1.Text = Left(Temp, Kolumnbredd(i))


Next i
End Sub


MVH
/Anders

Hej
Att folk ofta fnyser åt Vb och kallar det för leksaksspråk
beror bla. på att Vb tillåter sådana här rader

text1.Text = Left(Temp, Kolumnbredd(i))

borde bara tillåta Left$(.........osv)

Tycker
Sven

vad betyder $:et egentligen?

Hej
>vad betyder $:et egentligen?
Att funktionen Left$ skall returnera en String och inte Variant
som är en riktig styggelse.Det är just DataTypen Variant
som missbrukas nåt så in i "spisen" så det är sjukt.

Minnesslukande och fullständigt utan funktion.
möjligtvis vid extremt långa tal , men då finns Currency
och API CopyMemory så man kan kombinera upp till 64 bitar.

DataTypen Variant är latmaskens signum.

Tycker
Sven