Hogy kell ezt megprogramozni?
Üdv !
Visual basicban nem tudok megoldani valamit
Van egy mappám amiben bizonytalan számú mondat van elválasztva a "\"-karakterrel . Az a célom hogy ezeket a mondatokat random dobalja ki .
Gondolom tudni kell a \ - számát a szövegben arra ezt tudtam irni :
Dim str, x As String
Dim i, s, As Integer
str = (mappa helye)
For i = 0 To str.Length - 1
x = str.Chars(i)
If x = "\" Then
s = s +1
End If
Next
Ami nem világos ez a tömbkezelés .
Dim kerdesek As String
Dim mondat(s) As String
kerdesek= (mappa helye)
mondat = kerdesek.Split("\")
eddig jutottam valaki segítene nekem
válasza:Nem nagyon értem mire gondolsz?
Most neked fájlból kell, megoldanod?
Vagy több fájlban van megirva ez a dolog?
Egy másik kérdés .NET-ben kell, vagy vba-ban?
Objektumkezelés volt már( már ha fájlhoz kell)
.net - ben csinálom .
A fájlba például az van írva , hogy "Hello\Szia\Üdv"
ez el van mentve pl C:\user\...
Az a cél hogy random kiválassza az egyik köszönést
válasza:nah akkor itt van a kód
dim str,x,substring() as sting
dim i,j, eleje, vege, elozo as string
dim fso as New FileSysteObjet
dim tso as TextStream
set ts=fs.OpenTextFile("nahide jön a mappa helye",1,0)
str=ts.ReadALL
for i=1 to Len(str)
x=str.Chars(i)
elozo=1
s=0
if x="\" Then
s=s+1
if s mod 2 <>0
then
eleje=elozo
vege=i
elozo=i
else
vege=i
end if
substring(s)=Mid(string,eleje,vege)
next i
Dim value As Integer = CInt(Int((s * Rnd()) + 1))
Console.Writeline(substring(value))
válasza: válasza:És visual basicben csinálod?
Ha nincs más akkor ez?
Most jutottam géphez hogy teszteljem es a változóknal hibakat dob ki .
Igen visual basicban csinalom
a masik kerdest hogy erted ?
További 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!