Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Vba CheckBox in txt speichern

Mitglied: win-hesse

win-hesse (Level 1) - Jetzt verbinden

29.04.2011 um 15:52 Uhr, 4991 Aufrufe, 8 Kommentare

Hallo Zusammen,

ich versuche gerade mein erstes VB Projekt umzusetzen

habe Visual Basic 2010 Express Installiert und es läuft auch super


ich habe mehr CheckBoxen (1-10) erstellt und will nur im erste stepp hin bekommen das wenn man ein paar ausgewählt hat und auf den Button1 Klicket das die aktiven Boxen zb. mit 1 oder die inaktiven mit 0 in eine txt geschriebn werden

online habe ich gelesen das diese per Open "C:\text.txt" und PRINT gehen sollte

dann bin ich einfach mal hin gegenagen und habe ein Beispiel code kopiert
nur leider kommen so bei mir gleich 4 Fehler Ausdruck erwartet und ...

01.
  
02.
Public Class Form1 
03.
 
04.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
05.
 
06.
        Dim Inhalt As String 
07.
        Inhalt = "Text1" & vbCrLf & "Text2" 
08.
        Open ("C:\text.txt")  For Output As #1 
09.
        Print (#1, Inhalt) 
10.
        Close (#1) 
11.
 
12.
    End Sub 
13.
 
14.
End Class


jemand eine Idee wie ich das hin bekommen kann ??

vor ab schon mal vielen dank für eure hilfe !!!
Mitglied: TsukiSan
29.04.2011 um 15:59 Uhr
Hallo win-hesse,

nur mal so eine Idee! probier mal:
01.
dim d as Freefile 
02.
dim Inhalt  
03.
Inhalt = "meinText" 
04.
open "C:\text.text" for append as d 
05.
Print #d, Inhalt 
06.
close
so ähnlich hat's zumindest bei den Vorgängerversionen funktioniert.

Gruss
Tsuki
Bitte warten ..
Mitglied: win-hesse
29.04.2011 um 16:07 Uhr
oh danke für die schnelle antwort
leider nicht

aber so schreibt er schon mal etwas in die TXT

01.
        Dim Inhalt 
02.
        Inhalt = "meinText" 
03.
        FileOpen(1, "C:\text.txt", OpenMode.Append) 
04.
        Print(1, Inhalt) 
05.
        Close()
Bitte warten ..
Mitglied: TsukiSan
29.04.2011 um 16:24 Uhr
na das ist doch schon mal was!
in den Vorgängerversionen von VB kann man die
"Zustände" der Checkboxen wie folgt abfragen:
Beispiel:
01.
a = checkbox1.value 
02.
'etc
und dann dein Schnippet etwas umgeschrieben müßte es doch funktionieren, oder?

Gruss
Tsuki
Bitte warten ..
Mitglied: win-hesse
29.04.2011 um 16:25 Uhr
jetzt auf einmal ging es einfach *freu*
zuerst habe ich lange bei goo... gesucht und jetzt
nach dem Problem 1 gelöst war ging es super einfach ... vermutlich aber nicht besonderst schön
jemand eine idee ??


01.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
02.
 
03.
        Dim Inhalt 
04.
 
05.
        FileOpen(1, "C:\text.txt", OpenMode.Append) 
06.
 
07.
        If CheckBoxM1.Checked = True Then 
08.
            Inhalt = "P1: 1" 
09.
        Else 
10.
            Inhalt = "P1: 2" 
11.
        End If 
12.
        Print(1, Inhalt & vbCrLf) 
13.
 
14.
        If CheckBoxB1.Checked = True Then 
15.
            Inhalt = "P2: 1" 
16.
        Else 
17.
            Inhalt = "P2: 2" 
18.
        End If 
19.
        Print(1, Inhalt & vbCrLf) 
20.
 
21.
        Close() 
22.
 
23.
 
24.
    End Sub
Bitte warten ..
Mitglied: TsukiSan
29.04.2011 um 16:27 Uhr
warst schneller, als ich.
schau mal meinen Hinweis!

Gruss
Tsuki
Bitte warten ..
Mitglied: bastla
29.04.2011 um 18:00 Uhr
Hallo win-hesse und willkommen im Forum, hallo Tsuki!

Etwas zum Spielen:
01.
Dim objControl As Control 
02.
Dim strList As String = "", strControlString = "", strType As String = "", strValue As String = "" 
03.
For Each objControl In Me.Controls 
04.
    strControlString = objControl.ToString 
05.
    strType = Split(Split(strControlString, ".")(3), ",")(0) 
06.
    strValue = Trim(Split(strControlString, ":")(1)) 
07.
    strList = strList & objControl.Name & "#" & strType & "#" & strValue & vbCrLf 
08.
 Next 
09.
 MsgBox(strList)
Ansonsten zB How to loop through multiple checkboxes

Grüße
bastla
Bitte warten ..
Mitglied: TsukiSan
30.04.2011 um 15:23 Uhr
hi bastla,

Nur kleiner Hinweis (falls das jemand liest): bei VB6 und Co ist die Syntax anders.
Aber generell hat bastla aufgezeigt, wie man CONTROLS in Arrays packt und somit
auf deren Eigenschaften Zugriff hat.

Super Sache! Danke und

Gruss
Tsuki
Bitte warten ..
Mitglied: win-hesse
02.05.2011 um 09:52 Uhr
Interessante lösung ...

werde damit mal was spielen und schauen das ich es vollständig verstehe
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Nachfrage, ob Datei speichern bei automatischem Speichern als TXT Datei mittels VBA

gelöst Frage von IGEL.DanielMicrosoft Office2 Kommentare

Hallo liebe Community, ich habe ein VBA Script, mit dem ich automatisch 8 Tabellenblätter aus einer XLSM Datei jeweils ...

Microsoft

Excel-Datei mit VBA speichern

gelöst Frage von 116408Microsoft6 Kommentare

Guten Tag Ich habe eine Excel-Datei, in der in D4 der Kundenname und in D11 das Projekt benennt wird. ...

VB for Applications

VBA-Makro verschwindet nach Speichern

gelöst Frage von lupi1989VB for Applications5 Kommentare

Liebe Leute, bei mir verschwindet der Makro für den Scrollbereich in Excel(abgespeichert in xlsm) immer wieder nach dem Speichern. ...

VB for Applications

Outlook VBA - Anhang autom. speichern

gelöst Frage von sokraTonisVB for Applications8 Kommentare

Hallo, ich bekomme an eine bestimmte E-Mail-Adresse immer wieder Nachrichten mit einem Anhang. Der Name vom Anhang ist immer ...

Neue Wissensbeiträge
Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 StundeInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 13 StundenErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Windows 10

Windows 10 on ARM: von Microsoft entfernte Info - Klartext, was nicht geht

Information von kgborn vor 15 StundenWindows 10

Windows 10 on ARM ist ja eine neue Variante, die Microsoft im Verbund mit Geräteherstellern am Markt etablieren will. ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgborn vor 15 StundenMicrosoft9 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 (1709) Tastur und Maus wieder einschalten?
Frage von LochkartenstanzerWindows 1026 Kommentare

Moin, Ich habe von einem Kunden einen Win10-Rechner bekommen, bei dem weder Tastatur noch Maus geht. Die Hardware funktioniert ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall15 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...

Server
Route-Befehl Unterstützung (unter CMD)
gelöst Frage von FKRR56Server15 Kommentare

Guten Tag , i.M. habe ich Probleme über den CMD-Route-Befehl ein Routing auf einen entfernten Server zuzulassen. Der Server ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)15 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...