1 . Mitenkä saan puretuksi merkkijonoja VB:llä.
esim.
Text1.Text = 1/2003
tämä pitäisi saada jaetuksi kahteen Text boxiin vaikka näin
Text2.Text=1 ja Text3.Text=2003
vieläpä niin että Text1.text voi olla jotain välillä 0-999/1990-2xxx.
2. entä sitten noiden textien yhteen laskeminen, jos esim. text2.text:iin pitäisi saadalisätyksi 1.
meneekö vain text1.text 1
esim.
Text1.Text = 1/2003
tämä pitäisi saada jaetuksi kahteen Text boxiin vaikka näin
Text2.Text=1 ja Text3.Text=2003
vieläpä niin että Text1.text voi olla jotain välillä 0-999/1990-2xxx.
2. entä sitten noiden textien yhteen laskeminen, jos esim. text2.text:iin pitäisi saadalisätyksi 1.
meneekö vain text1.text 1
Vastaukset 4
Vanhimmat
Dim s(1) As String
Dim f() As String
s(0) = "1 / 2003"
f = s(0).Split("/", 2)
Label1.Text = f(0)
Label2.Text = f(1)
Label3.Text = Label1.Text & Label2.Text
Ei toimi noin...
ilmoittaa expect function ja maalaa tuon SPLIT sanan.
muita ehdotuksia ???
Tässä ainakin yksi tapa jolla voi jakaa stringin kahtia:
Sub read_date_as_string()
Dim string_to_check As String
Dim string_found As Variant
Dim division_point As Integer
Dim my_month As String
Dim my_year As String
Dim i As Integer
string_to_check = "01/2002"
'Find "/" mark
For i = 1 To Len(string_to_check)
string_found = Mid(string_to_check, i, 1)
If string_found = "/" Then
division_point = i
Exit For
End If
Next i
'Results
my_month = Left(string_to_check, division_point - 1)
my_year = Right(string_to_check, Len(string_to_check) - division_point)
End Sub
Dim fields() As String
Dim teksti As String
teksti = "1/2004"
fields = Split(teksti, "/", , vbTextCompare)
CountFields = UBound(fields) 1
Text1.Text = fields(0) 1
Text2.Text = fields(1)
ja huomaat että toimii, tuo lisäys 1 mukaanlukien. Laitoin vain selkeyden vuoksi tuon teksti-muuttujan tuohon lisäksi, siitä revitään kentät "/" -merkistä erilleen Text1 ja Text2 boxeihin.