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

Frage Entwicklung VB for Applications

Mitglied: win-hesse

win-hesse (Level 1) - Jetzt verbinden

29.04.2011 um 15:52 Uhr, 4969 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
Linux

Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde

Information von Frank vor 1 StundeLinux6 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 1 TagBatch & Shell9 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Humor (lol)

"gimme gimme gimme": Automatischer Test stolpert über Easter Egg im man-Tool

Information von Penny.Cilin vor 1 TagHumor (lol)6 Kommentare

Interessant, was man so alles als Easter Egg implementiert. Ist schon wieder Ostern? "gimme gimme gimme": Automatischer Test stolpert ...

MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 1 TagMikroTik RouterOS8 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Heiß diskutierte Inhalte
Router & Routing
Zwei Netzwerke erstellen
Frage von bunteblumeRouter & Routing13 Kommentare

Hallo Zusammen, Ich möchte gerne ein backup von einem bestimmten Folder welcher auf dem Server regelmässig synchronisiert wird auf ...

Off Topic
Fachkräftemangel in Deutschland? - Talentschmiede schreibt alle 2 Tage die gleichen Stellen aus
Frage von Penny.CilinOff Topic12 Kommentare

Hallo, haben wir in Deutschland Fachkräftemangel? Die Talentschmiede schreibt gefühlt alle zwei Tage dieselben Stellen aus. Und das schon ...

Microsoft Office
Outlook Cache Mode Frage
Frage von GwaihirMicrosoft Office11 Kommentare

Hallo zusammen, bin gerade neu in der Firma und lerne hier einige neue Dinge kennen. Zum Beispiel, dass die ...

Windows Server
Windows Store Apps
gelöst Frage von PeterleBWindows Server11 Kommentare

Gibt es einen Weg, auf Windows Server 2016 Windows Store Apps wie zum Beispiel die HP Smart App zu ...