Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Seite 1 von 2 12 LetzteLetzte
Ergebnis 1 bis 10 von 17

Thema: Problem mit diesem Script

  1. #1
    Registriert seit
    07.09.2010
    Beiträge
    62
    Danke
    0
    Erhielt 5 Danke für 4 Beiträge

    Unglücklich


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo,

    ich benutze folgendes Script in WinCC flexible um Produktionsdaten in eine CSV Datei zu exportieren.

    Es funktioniert auch alles wunderbar, es wird alles exportiert, AUßER die ID, welche im Format String ist. Diese wird einfach nicht exportiert.

    Hab schon alles ausprobiert, wisst ihr was an diesem Script falsch ist?


    Code:
    If SmartTags("Archivieren") Then
    
    
    	Dim fso,fso2, f, ts, path
    	Dim datum, dateiname, ordnername
    
    	
    
    		Dim A001, A002, A003, A004, A005, A006, A007, A008, A009, A010, A011, A012, A013, A014, A015, A016, A017, A018, A019, A020
    		Dim A021, A022, A023, A024, A025, A026, A027, A028, A029, A030, A031, A032, A033, A034, A035, A036, A037, A038, A039, A040
    		Dim A041, A042, A043, A044, A045, A046, A047, A048, A049, A050, A051, A052, A053, A054, A055, A056, A057, A058, A059, A060
    		Dim A061, A062, A063, A064, A065, A066, A067, A068, A069, A070, A071, A072, A073, A074, A075, A076, A077, A078, A079, A080
    		Dim A081, A082, A083, A084, A085, A086, A087, A088, A089, A090, A091, A092, A093, A094, A095, A096, A097, A098, A099, A100
    		Dim A101, A102, A103, A104, A105, A106, A107, A108, A109, A110, A111, A112, A113, A114, A115, A116, A117, A118, A119, A120
    		Dim A121, A122, A123, A124, A125, A126, A127
    
    
    		A001 = SmartTags("DB_Lens.DS[57]\DB_Lens.DS[57].ID")
    		A002 = SmartTags("DB_Lens.DS[57]\DB_Lens.DS[57].IO")
    		A003 = SmartTags("DB_Lens.DS[57]\DB_Lens.DS[57].NIO")
    		.
    		.
    		.
    
    
    
    	datum = Date
    	dateiname = DatePart("yyyy", datum)&"_"&DatePart("m", datum)&"_"&DatePart("d", datum)&".csv"	
    	
    	ordnername = DatePart("yyyy", datum)
    	dateiname = "D:\Logs\LensDB\"&dateiname 
    	
    	'Ordner erstellen falls nicht vorhanden	
    	'Set fso2 = CreateObject("Scripting.FileSystemObject")
    	'If Not fso2.FolderExists(ordnername) Then fso2.CreateFolder(ordnername)	
    	'Set fso2 = Nothing
    
    	'Fehlerroutine
    	On Error Resume Next
    
    	'Objekt erstellen
    	Set fso = CreateObject("Scripting.FileSystemObject")
    	If Err.Number <> 0 Then
    		ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
    		Err.Clear
    		Exit Sub
    	End If
    
    	'Datei erstellen, wenn kein vorhanden
    	'If Not fso.FileExists(dateiname) Then
    	'	fso.CreateTextFile dateiname
    		
    	'End If
    
    	Set f = fso.GetFile(dateiname)
    	If Err.Number <> 0 Then
    		ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
    		Err.Clear
    		Exit Sub
    	End If
    
    	Set ts = f.OpenAsTextStream(8, -2)
    		If Err.Number <> 0 Then
    		ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
    		Err.Clear
    		Exit Sub
    	End If
    
    	'Werte in die Datei schreiben
    	ts.WriteLine A001&";"&A002&";"&A003&";"&A004&";"&A005&";"&A006&";"&A007&";"&A008&";"&A009&";"&A010&";"&A011&";"&A012&";"&A013&";"&A014&";"&A015&";"&A016&";"&A017&";"&A018&";"&A019&";"&A020&";"&A021&";"&A022&";"&A023&";"&A024&";"&A025&";"&A026&";"&A027&";"&A028&";"&A029&";"&A030&";"&A031&";"&A032&";"&A033&";"&A034&";"&A035&";"&A036&";"&A037&";"&A038&";"&A039&";"&A040&";"&A041&";"&A042&";"&A043&";"&A044&";"&A045&";"&A046&";"&A047&";"&A048&";"&A049&";"&A050&";"&A051&";"&A052&";"&A053&";"&A054&";"&A055&";"&A056&";"&A057&";"&A058&";"&A059&";"&A060&";"&A061&";"&A062&";"&A063&";"&A064&";"&A065&";"&A066&";"&A067&";"&A068&";"&A069&";"&A070&";"&A071&";"&A072&";"&A073&";"&A074&";"&A075&";"&A076&";"&A077&";"&A078&";"&A079&";"&A080&";"&A081&";"&A082&";"&A083&";"&A084&";"&A085&";"&A086&";"&A087&";"&A088&";"&A089&";"&A090&";"&A091&";"&A092&";"&A093&";"&A094&";"&A095&";"&A096&";"&A097&";"&A098&";"&A099&";"&A100&";"&A101&";"&A102&";"&A103&";"&A104&";"&A105&";"&A106&";"&A107&";"&A108&";"&A109&";"&A110&";"&A111&";"&A112&";"&A113&";"&A114&";"&A115&";"&A116&";"&A117&";"&A118&";"&A119&";"&A120&";"&A121&";"&A122&";"&A123&";"&A124&";"&A125&";"&A126&";"&A127
    		
    	'Datei schließen
    	ts.Close
    	Set ts = Nothing
    	Set f = Nothing
    	Set fso = Nothing
    	ShowSystemAlarm "Daten wurden exportiert!"
    	
    	ResetBit SmartTags("Archivieren")
    End If
    Zitieren Zitieren Problem mit diesem Script  

  2. #2
    Registriert seit
    17.06.2010
    Ort
    nähe Memmingen
    Beiträge
    610
    Danke
    93
    Erhielt 116 Danke für 100 Beiträge

    Standard

    ich seh momentan auch keinen fehler.

    lass dir doch mal den inhalt von A001 anzeigen, obe der string in
    ordnung ist
    (z.b. mit ShowSystemAlarm ">>"&A001&"<<")

  3. #3
    Registriert seit
    04.07.2007
    Beiträge
    147
    Danke
    6
    Erhielt 13 Danke für 13 Beiträge

    Standard

    Wann wird die ID geschrieben? Da flexible zyklisch auf die Variablen schaut kann es sein dass der aktuelle Wert noch nicht "vorhanden" ist. Die Erfassungsart der Variable mal auf zyklisch fortlaufend stellen.

  4. #4
    al3x ist offline Benutzer
    Themenstarter
    Registriert seit
    07.09.2010
    Beiträge
    62
    Danke
    0
    Erhielt 5 Danke für 4 Beiträge

    Standard

    Alle Variablen stehen auf zyklisch fortlaufend 100ms. Exportiert werden sie mit einer Verzögerung von 1s.

    Wenn ich mit ShowSystemAlarm die Variable ausgebe, steht nichts drin. Wenn ich aber in der Oberfläche die Variable anschaue steht die ID drin..


  5. #5
    Registriert seit
    17.06.2010
    Ort
    nähe Memmingen
    Beiträge
    610
    Danke
    93
    Erhielt 116 Danke für 100 Beiträge

    Standard

    wird A001 evtl. irgendwo überschrieben, bzw. evtl. doppelt zugiewesen?
    wie zeigst du in der oberfläche die variable an?
    A001 ist doch eine variable im script!

  6. #6
    al3x ist offline Benutzer
    Themenstarter
    Registriert seit
    07.09.2010
    Beiträge
    62
    Danke
    0
    Erhielt 5 Danke für 4 Beiträge

    Standard

    Die ID ist ein DataMatrix Code er am Anfang eingelesen wird. Wenn das Teil die Anlage verlässt werden da Daten exportiert. In der Oberfläche kann man diese ID auch anschauen.

    Ich hab auch schon versucht im Script nicht A001 sonder direkt die Variable ID zu exportieren, funktionierte auch nicht.

  7. #7
    Registriert seit
    04.07.2007
    Beiträge
    147
    Danke
    6
    Erhielt 13 Danke für 13 Beiträge

    Standard

    Dann probier mal den Smarttag direkt mit Showsystemalarm auszugeben:

    ShowSystemAlarm SmartTags("DB_Lens.DS[57]\DB_Lens.DS[57].ID")

  8. #8
    Registriert seit
    17.06.2010
    Ort
    nähe Memmingen
    Beiträge
    610
    Danke
    93
    Erhielt 116 Danke für 100 Beiträge

    Standard

    wie wird das teil (die id) in der oberfläche angezeigt?
    ist es evtl. gar kein string?

  9. #9
    al3x ist offline Benutzer
    Themenstarter
    Registriert seit
    07.09.2010
    Beiträge
    62
    Danke
    0
    Erhielt 5 Danke für 4 Beiträge

    Standard

    doch. ist als String Variable mit 18 Zeichen angelegt, der Code hat immer 13 Zeichen, und wird auch als String im Textfeld angezeigt.

  10. #10
    Registriert seit
    17.06.2010
    Ort
    nähe Memmingen
    Beiträge
    610
    Danke
    93
    Erhielt 116 Danke für 100 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    poste hier doch mal einen screenshot wie die variable
    definiert ist und wie die anzeige in der oberfläche
    projektiert ist.

Ähnliche Themen

  1. Antworten: 3
    Letzter Beitrag: 07.04.2010, 00:16
  2. Wer kann mir bei diesem OB! helfen
    Von S7 Frischling im Forum Simatic
    Antworten: 9
    Letzter Beitrag: 09.09.2009, 08:10
  3. WinCC Flex 2007-Problem mit Script
    Von Neuling74 im Forum HMI
    Antworten: 9
    Letzter Beitrag: 30.01.2008, 11:32
  4. MMC, was ist von diesem Programm zu halten
    Von lorenz2512 im Forum Simatic
    Antworten: 5
    Letzter Beitrag: 26.05.2006, 13:01
  5. Was haltet ihr von diesem Angebot?
    Von Kojote im Forum Stammtisch
    Antworten: 7
    Letzter Beitrag: 09.04.2006, 18:22

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •