Visual basicben hogyan tudom ezt megoldani?
Van egy stringem pl adat
adat = "Hello \ Szia"
Azt szeretném , hogy az adat taltalmát a "" - karakternél véletlenszerűen sorolja ki(magyarán egyszer Hello-t máskor Szia-t mondjon)
Kijavítanátok , mert ebben a programsorban mindíg lefagy a program :
dim karakterhely
karakterhely = InStr(adatcsomag, "")
Dim rndnumber As Random (véletlenszam)
dim number As Integer
rndnumber = New Random
number = rndnumber.Next(1, 2)
If number = 1 Then
text.Text = Mid(adat, 0, karakterhely)
Else
text.Text = Mid(adat, karakterhely, Len(adat))
End If
A válaszokat nagy érdeklődéssel várom .





Első sorban olvass utána a Split függvénynek !
Annyit elárulok, hogy egy adott karakter mentén feldarabolja a stringet :)





Dim str As String
Dim strArr() As String
Dim intResult As Integer
str = "Hello\Szia"
strArr = str.Split("\")
Randomize()
intResult = Int(2 * Rnd)
text.Text = strArr(intResult)
Nincs VB a gépemen, de szerintem jó.





Dim szam As Integer
szam = Int(2 * Rnd())
If szam = 1 Then
'Szia esetén
else
'Hello
End If
Fejből írtam, de szerintem jó
Kapcsolódó kérdések:
Minden jog fenntartva © 2025, 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!