fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

dummer Fehler ^^

Uploader:	max06
Datum/Zeit:	10.07.2007 18:30:39

Sub playerlist()



        Dim As Integer x, y

        x=0

        y=0





        Print "<playerlist>"

        saccess = 0

        SendText("pl"+NEWLINE)

        Sleep 50



        Print "<Daten abholen>"

        y=0:x=0

        For y = 0 To 100

            playertable(x, 0)=substr(s, ";", x)

            If InStr(s, "OK") Then

                Print "<schleife verlassen>"

                y=100

                Print "<Daten ausgeben>"

                For y=0 To 100

                    For x=1 To 16

                        If playertable(1, y)<>"" Then

                            Print playertable(x, y),

                        EndIf

                    Next x

                Next y

'               For x = 1 To 16 Step 1

'                   sleep 50

'                   s=replace(S, chr(9), ";")

'                   playertable(x, y)=substr(s, ";", y)

'                   Sleep 50

'               Next x

            End if

        Next y

        Print "<fertig>"

        Sleep 50



    End Sub

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.