Visual basicban hogy lehet szöveget szétválasztani?
Hja, kérem, könnyű annak, aki ért is hozzá...
Azért a tanulság kedviért itt az én két nehézkesebb megoldásom is, ha nem is éppen VB-ben, de a némiképp hasonló Gambasben:
Public Sub CiklusGomb_Click()
Dim voltvesszo As Boolean
Dim i As Integer
Dim betu As String
Label1.Caption = ""
Label2.Caption = ""
voltvesszo = False
For i = 1 To Len(szoveg.Text)
betu = Mid(szoveg.Text, i, 1)
Select Case betu
Case ","
voltvesszo = True
Case Else
If voltvesszo Then
Label2.Caption = Label2.Caption & betu
Else
Label1.Caption = Label1.Caption & betu
Endif
End Select
Next
End
Public Sub InStrGomb_Click()
Dim vesszohelye As Integer
vesszohelye = InStr(szoveg.Text, ",")
Label1.Caption = Left(szoveg.Text, vesszohelye - 1)
Label2.Caption = Right(szoveg.Text, - vesszohelye)
End
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!