Buchstaben an bestimmter Position ausgeben

Dieses Thema Buchstaben an bestimmter Position ausgeben im Forum "Windows XP Forum" wurde erstellt von Marduk83, 7. Jan. 2006.

Thema: Buchstaben an bestimmter Position ausgeben Hi zusammen Ich habe folgendes Problem Ich will, dass beispielsweise bei dem Wort Auto der Buchstabe der an 3....

  1. Hi zusammen

    Ich habe folgendes Problem
    Ich will, dass beispielsweise bei dem Wort Auto der Buchstabe der an 3. position steht ausgegeben wird.
    ich krieg das mit dem folgenden Programm nich hin, keine Ahnung warum.

    Private Sub Befehl0_Click()
    Dim d As Integer
    Dim s As String
    Wort = Me!eingabe
    GoSamstagLotto


    For d = 1 To Ziehung.Count

    s = s & CStr(Ziehung(d)) &
    Next

    MsgBox s

    End Sub


    Private Sub GoSamstagLotto()
    Dim n As Long
    Dim m As Long
    Dim d As Integer

    Wort = Me!eingabe
    i = Len(Wort)

    Set Ziehung = Nothing
    Set Ziehung = New Collection
    Randomize Timer
    On Error Resume Next
    n = 1
    Do
    m = Int(Rnd * i) + 1
    Ziehung.Add m, CStr(m)
    If Err = 0 Then n = n + 1 Else Err.Clear
    Loop While n < i + 1

    MsgBox Ziehung(1) & Ziehung(2) & Ziehung(3) & Ziehung(4) & Ziehung(5)
    End Sub
     
  2. Schau mal in der Doku nach der MID()-Funktion:
    Code:
    msgbox mid(auto,3,1)
    
     
Die Seite wird geladen...

Buchstaben an bestimmter Position ausgeben - Ähnliche Themen

Forum Datum
Tastatur Buchstaben Abrieb Hardware 28. März 2016
Geänderte Laufwerkbuchstaben Windows 7 Forum 16. Aug. 2015
Buchstabenänderung ext. Laufwerk Sonstiges rund um den PC & Kaufberatung 6. Aug. 2015
Win7: Bei Office 2010 Word springen die Buchstaben E-Mail-Programme 7. Sep. 2014
Laufwerk C mit allen Laufwerksbuchstaben ... Windows 7 Forum 27. Feb. 2014