SiePortal

Die integrierte Plattform für Produktauswahl, Einkauf und Support - und Verbindung von Industry Mall und Online Support

Suche

Produkte & Services
- Menü derzeit nicht verfügbar
- Menü derzeit nicht verfügbar
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menü derzeit nicht verfügbar
- Menü derzeit nicht verfügbar
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menü derzeit nicht verfügbar
- Menü derzeit nicht verfügbar
- {{item.title}}
Warenkorb ({{apiData.CartCount}})

Navigation

VBS Frage txt Datei schreiben????

12.03.2009 10:43	Bewerten (0)
1300GTJBert Beiträge: 45 Bewertung: (0)	Hallo, ich bin leider nicht ein VB Programmierer muss nun aber folgende Aufgabe Lösen: Der Kund möchte mit drücken eines Button in WinCC in eine TXT Datei eine neue Zeile text + Zeitstempel eintragen. Beim nächsten drücken soll in die selbe TXT Datei in die nächste Zeile selber Text neuer Zeitstempel eingetragen werden. Kann mor jemand beim Quelltext helfen? MFG
1300GTJBert Beiträge: 45 Bewertung: (0)	Zuletzt bearbeitet von: 1300GTJBert am: 12.03.2009 17:22 Zuletzt bearbeitet von: 1300GTJBert am: 12.03.2009 10:44
Vorschlag Bedanken Zitat Antwort

13.03.2009 21:27	Bewerten (1)
CNUser Beiträge: 15 Bewertung: (3)	Hallo! bei mir würde das ungefähr so aussehen: [code] Dim objFileSystem, objOutputFile,strOutputFile Const APPEND = 8 strOutputFile = "c:\export.txt" Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objOutputFile = objFileSystem.OpenTextFile(strOutputFile, APPEND) objOutputFile.WriteLine Now() & " " & strText objOutputFile.Close Set objFileSystem = Nothing [/code] Gruß CNUser
CNUser Beiträge: 15 Bewertung: (3)	Zuletzt bearbeitet von: CNUser am: 13.03.2009 21:28
Vorschlag Bedanken Zitat Antwort
Für diesen Beitrag bedanken sich 1 Benutzer Florian Behncke

16.03.2009 01:10	Bewerten (0)
vanDyk Beiträge: 799 Bewertung: (82)	Hallo, Vorschlag: 1. interne Textvariable anlegen und mit Textfeld verknüpfen 2. Variablen für Uhrzeit und Datum aus dem Trieber System Info anlegen folgendes Script: (aus FAQ) #include "apdefap.h" void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { FILE datei; char a; char *b; datei = fopen( "C:\\Temp\\variablen.txt", "a" ); // Inhalt an Datei anhängen... if( datei != NULL ) { a=GetTagChar("Text_1"); b=GetTagChar("Text_2"); fprintf( datei,"%s\n%s", a,b); } fclose( datei ); //close file } zum Nachlesen: http://support.automation.siemens.com/WW/view/de/26711879 http://support.automation.siemens.com/WW/view/de/26710654 MfG vanDyk
vanDyk Beiträge: 799 Bewertung: (82)	Zuletzt bearbeitet von: vanDyk am: 16.03.2009 01:12
Vorschlag Bedanken Zitat Antwort

18.03.2009 15:47	Bewerten (0)
sepa Beiträge: 24 Bewertung: (5)	Hier noch ein C Beispiel bezogen auf den ersten Post: [code]#include "apdefap.h" void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { #pragma code("kernel32.dll") VOID GetLocalTime(SYSTEMTIME lpst); #pragma code(); SYSTEMTIME mytime; static FILE fp = 0; char retval[255] = ""; char* Pfad = "C:\\test.csv"; char* Seperator = "\t"; char* Text = "Hier könnte Dein Text stehen"; GetLocalTime(&mytime); // Lokale Zeit ermitteln sprintf(retval, "%02i.%02i.%04i %02i:%02i:%02i%s%s\n", mytime.wDay, mytime.wMonth, mytime.wYear, mytime.wHour, mytime.wMinute, mytime.wSecond, Seperator, Text); fp = fopen(Pfad, "a+"); // Datei im Anfügemodus öffnen fputs(retval, fp); // Buffer schreiben fclose(fp); // Datei schließen }[/code]
sepa Beiträge: 24 Bewertung: (5)
Vorschlag Bedanken Zitat Antwort

30.03.2009 10:52	Bewerten (0)
1300GTJBert Beiträge: 45 Bewertung: (0)	Vielen Dank!!!!
1300GTJBert Beiträge: 45 Bewertung: (0)
Vorschlag Bedanken Zitat Antwort

Teile diese Seite:

Teile diese Seite auf...