vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Wiedermal Textfile 
Autor: Martin
Datum: 26.08.02 09:45

in der ersten seite erstelle ich die datei mit folgenden befehl

Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile("C:Checkbox.txt", True)



hallo hier ist der quellcode von der zweiten seite

Dim fso
Dim txtfile
Dim f

frm_Kapitel1_Frage2.Hide
frm_Kapitel1_Frage3.Show

If frm_Kapitel1_Frage2.chk_Frage2_B.Value = 1 And _
chk_Frage2_A.Value = 0 And _
chk_Frage2_C.Value = 0 And _
chk_Frage2_D.Value = 0 And _
chk_Frage2_E.Value = 0 Then
frm_Auswertung.chk_Frage2_Richtig.Value = 1
frm_Auswertung.chk_Frage2_Falsch.Value = 0
Else
frm_Auswertung.chk_Frage2_Richtig.Value = 0
frm_Auswertung.chk_Frage2_Falsch.Value = 1
End If

f = FreeFile
Open "C:Checkbox.txt" For Append As #f

If chk_Frage2_A.Value = 1 Then
txtfile.writeline ("chk_Frage2_A.Value = 1")
End If
If chk_Frage2_B.Value = 1 Then
txtfile.writeline ("chk_Frage2_B.Value = 1")
End If
If chk_Frage2_C.Value = 1 Then
txtfile.writeline ("chk_Frage2_C.Value = 1")
End If
If chk_Frage2_D.Value = 1 Then
txtfile.writeline ("chk_Frage2_D.Value = 1")
End If
If chk_Frage2_E.Value = 1 Then
txtfile.writeline ("chk_Frage2_E.Value = 1")
End If
If chk_Frage2_A.Value = 0 And _
chk_Frage2_B.Value = 0 And _
chk_Frage2_C.Value = 0 And _
chk_Frage2_D.Value = 0 And _
chk_Frage2_E.Value = 0 Then
txtfile.writeline ("chk_Frage2 keine gewählt!")
End If


ich hoffe ihr konnt damit was anfangen
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Wiedermal Textfile67Martin26.08.02 09:14
Re: Wiedermal Textfile36Hannes26.08.02 09:17
Re: Wiedermal Textfile37Martin26.08.02 09:22
Re: Wiedermal Textfile41devnull26.08.02 09:27
Re: Wiedermal Textfile37Martin26.08.02 09:37
Re: Wiedermal Textfile42devnull26.08.02 09:39
Re: Wiedermal Textfile47Martin26.08.02 09:45
Re: Wiedermal Textfile35Hannes26.08.02 11:06
Re: Wiedermal Textfile35Martin26.08.02 11:09
Re: Wiedermal Textfile34Martin26.08.02 11:10
Re: Wiedermal Textfile35Hannes26.08.02 11:19
Re: Wiedermal Textfile37Martin26.08.02 11:26

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel