print arrays til samme linge i en tekstfil

UPS mener Print #1, Label1(i) & " | `" & Label3(i) & " | " &

UPS igen lol label3 = label2

Print #1, Label1(i) & " | " & Label3(i) & " | "

Print #1, Label1 & " | " & Label2 & " | "

virker her

skal selvfølgelig være

Print #1, Label1(i) & " | " & Label3(i) & " | "

du skal vist også ændre
If Label1(i) & Label3(i) > "" Then

til

If Label1(i) <> "" and  Label3(i) <> "" Then

ok kabbak jeg skal prøver at forklare mig lidt beder hvis jeg kan

altså forstil dig at du har lavet en tips13 1x2 tipskupon med 2 rækker i vb6

række 1
label1(0) til label1(38)

og rækker 2
label2(0) til label2(38)

og når jeg trykker på label1(0) viser label!(0) et 1 tal hvis jeg trykker på label1(1) viser laben1(1) et x og hvis jeg trykker på label1(2) viser label(2) et 2 tal
od er kan altså kun være et tegn fra label1(0) til label1(2)
og lad os vi skal printe det ud så skal jeg kun have printet et tegn ud af de 3 index
hvis label1(0) = et 1 tal så print 1 talet ikke label1(1) og label1(2) derfor kan jeg ikke bruge If Label1(i) <> "" and  Label3(i) <> "" Then kun If Label1(i) & Label3(i) > "" Then ellers printer den label1(1) og label2(2) med og med den kode jeg har nu kommer det til at se sådan ud her.
1
2
1
2
1
x
1
x
1
x
1
x
1
x
1
x
1
x
1
x
1
x
1
x
1
x
og jeg vil have det til at stå sådan her.
R = Række
|  R1 | R2  |
-------------
|  2  |  1  |
|  2  |  1  |
|  1  |  x  |
|  1  |  x  |
|  1  |  x  |
|  1  |  x  |
|  1  |  x  |
|  1  |  x  |
|  1  |  x  |
|  1  |  x  |
|  1  |  x  |
|  1  |  x  |
|  1  |  x  |

og nu tror jeg ikke jeg kal forklare det beder LOL

M.V.H.
Jens Hinrichsen

jeg prøver at lave lidt om på din løkke

prøv


    For i = 0 To 38 Step 3
        For x = i To i + 3
            If Label1(i) <> "" Then RK1 = Label1(i).Caption
            If Label2(i) <> "" Then RK2 = Label2(i).Caption
        Next x
        Print #1, RK1 & " | `"; RK2 & " | "
    Next i

Hvad står X for ??? og skal jeg bruge Dim X As Integer også???

får en compile error: variabel not defined RK1 og RK 2 ?

jeg skal måske bruge dim RK1 as String og dim RK2 as String også ?

du har jeg prøvet

Dim I As Integer
Dim x As Integer
Dim RK1 As String
Dim RK2 As String
For I = 0 To 38 Step 3
        For x = I To I
            If Label1(I) <> "" Then RK1 = Label1(I).Caption
            If Label3(I) <> "" Then RK2 = Label3(I).Caption
        Next x
        Print #1, RK1 & " | `"; RK2 & " | "
    Next I

Resultat:

| `1 |
| `1 |
1 | `1 |
1 | `1 |
1 | `1 |
1 | `1 |
1 | `1 |
1 | `1 |
1 | `1 |
1 | `1 |
1 | `1 |
1 | `1 |
1 | `1 |

Jeg fatter ikke en skid af det hele lol

Screenshot af mit program måske kan det hjælpe

http://jehi.homepage.dk/Screenshot.jpg

Dim I As Integer
Dim x As Integer
Dim RK1 As String
Dim RK2 As String
For I = 0 To 38 Step 3
        For x = I To I+3
            If Label1(I) <> "" Then RK1 = Label1(I).Caption
            If Label3(I) <> "" Then RK2 = Label3(I).Caption
        Next x
        Print #1, RK1 & " | "; RK2 & " | "
    Next I

Du må bestemme dig, er det Label3(I) eller Label2(I), vi skal bruge ;-))

i mit program bruger jeg laber3 men i eks. her har jeg bare brugt label2 det er
jo lige meget kan jo bare lave det om i mit program har du set billedet af mit program ??? eller skriver vi ved siden af hinanden LOL

smutter lige 1½ time skal lige noget skrives ved håber jeg.

M.V.H.
Jens

måske sådan ;-))
Jeg har set dit billede.

Dim I As Integer
Dim x As Integer
Dim RK1 As String
Dim RK2 As String
For I = 0 To 38 Step 3
RK1 = ""
RK2 = ""
        For x = I To I+3
            If Label1(I).caption <> "" Then RK1 = Label1(I).Caption
            If Label3(I).caption <> "" Then RK2 = Label3(I).Caption
        Next x
        Print #1, RK1 & " | "; RK2 & " | "
    Next I

hmm det virker ikke damm hvor trals.

Option Explicit

Private Sub Command_Click()
On Error GoTo cancelvalgt
RichTextBox1.LoadFile txtfilename.Text
cancelvalgt:

End Sub

Private Sub Command1_Click()
Dim a, b, c, d, e, f, g, h, i, j, k, l, m As Integer
Dim x As Long
Dim Tegn()
Tegn = Array("1", "x", "2", "1", "X", "2", "1", "X", "2", "1", "X", "2", "1")
Open App.Path & "\Alle_kompinationer_tips13.rtf" For Output As #1
For x = 0 To Count + 1
For a = 0 To 2
  For b = 0 To 2
  For c = 0 To 2
    For d = 0 To 2
    For e = 0 To 2
      For f = 0 To 2
      For g = 0 To 2
        For h = 0 To 2
        For i = 0 To 2
          For j = 0 To 2
          For k = 0 To 2
            For l = 0 To 2
            For m = 0 To 2
            x = x + 1
            Print #1, "rk: " & (x) & " " & Tegn(a) & " " & Tegn(b) & " " & Tegn(c) & " " & Tegn(d) & " " & Tegn(e) & " " & Tegn(f) & " " & Tegn(g) & " " & Tegn(h) & " " & Tegn(i) & " " & Tegn(j) & " " & Tegn(k) & " " & Tegn(l) & " " & Tegn(m) & " "
            Next m
          Next l
          Next k
        Next j
      Next i
      Next h
    Next g
    Next f
  Next e
  Next d
Next c
Next b
Next a
Next x
Close #1


End Sub

Private Sub Form_Load()

Dim file_name As String
file_name = App.Path
If Right$(file_name, 1) <> "\" Then
file_name = file_name & "\"
txtfilename.Text = file_name & "Alle_kompinationer_tips13.rtf"
End If
End Sub