Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

VBSCRIPT - Bad formatting in csv file

Created by: Corentinzx at: 3/29/2022 12:37 PM (3 Replies)

Rating (0)

Thanks 1

4 Entries

3/29/2022 12:37 PM	Rate (0)
Corentinzx Member Joined: 11/13/2020 Last visit: 7/10/2024 Posts: 6 Rating: (0)	Hello all, I have a script for calculating and writing the flow rate of each pumps in 1 minute. --------------------------------------------------------------------- 'Déclaration variable locale Dim fo Dim path Dim mode Dim delimiter Dim gap Const NEU=0 Const NEU1 = 1 'Initialisation du mode mode=8 '8 = ajout 'Selection du chemin d'enregistrement path ="\Storage Card USB\All_Pumps.csv" delimiter=";" gap="" 'Starting error routine - Starten der Fehlerroutine On Error Resume Next 'Creation du fichier Set fo= CreateObject("FileCtl.File") 'Vérification si une erreur apparait. If Err.Number<> 0 Then ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description Err.Clear Exit Sub End If 'Oouverture ou création du fichier si non existant fo.open path,mode 'Vérification si une erreur apparait. If Err.Number<> 0 Then ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description Err.Clear Exit Sub End If 'Ecriture des en-tête si le fichier est nouveau. If fo.LOF = NEU Then fo.LinePrint("Date" & gap & gap & delimiter & "Temps (s)" & delimiter & "Poids (Kg) P10>1 " & delimiter & "Poids (Kg) P11>3 " & delimiter & "Poids (Kg) P16>6 " & delimiter & "Poids (Kg) P19>7" & delimiter & "Poids (Kg) P20>2" & delimiter & "Poids (Kg) P21>5" & delimiter) End If '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '--------------------------------- INFO POMPE 10 > L1 ------------------------ INFO POMPE 10 > L1 -------------------------------------------------------------------------------------------------------------- '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If P10_EnvoieDonneC1 = True Then 'Ecriture des valeurs à archiver. fo.LinePrint(Now & delimiter & SmartTags("P10_TempsC1") & gap & delimiter & SmartTags("P10_PoidsC1") & delimiter) P10_EnvoieDonneC1 = False End If If P10_EnvoieDonneC2 = True Then 'Ecriture des valeurs à archiver. fo.LinePrint(Now & delimiter & SmartTags("P10_TempsC2") & gap & delimiter & SmartTags("P10_PoidsC2") & delimiter) P10_EnvoieDonneC2 = False End If If P10_EnvoieDonneC3 = True Then 'Ecriture des valeurs à archiver. fo.LinePrint(Now & delimiter & SmartTags("P10_TempsC3") & gap & delimiter & SmartTags("P10_PoidsC3") & delimiter) P10_EnvoieDonneC3 = False End If If P10_EnvoieDonneC4 = True Then 'Ecriture des valeurs à archiver. fo.LinePrint(Now & delimiter & SmartTags("P10_TempsC4") & gap & delimiter & SmartTags("P10_PoidsC4") & delimiter) P10_EnvoieDonneC4 = False End If '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '--------------------------------- INFO POMPE 11 > L3 ------------------------ INFO POMPE 11 > L3 -------------------------------------------------------------------------------------------------------------- '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If P11_EnvoieDonneC1 = True Then 'Ecriture des valeurs à archiver. fo.LinePrint(Now & delimiter & SmartTags("P11_TempsC1") & gap & delimiter & gap & delimiter & SmartTags("P11_PoidsC1") & delimiter) P11_EnvoieDonneC1 = False End If If P11_EnvoieDonneC2 = True Then 'Ecriture des valeurs à archiver. fo.LinePrint(Now & delimiter & SmartTags("P11_TempsC2") & gap & delimiter & gap & delimiter & SmartTags("P11_PoidsC2") & delimiter) P11_EnvoieDonneC2 = False End If If P11_EnvoieDonneC3 = True Then 'Ecriture des valeurs à archiver. fo.LinePrint(Now & delimiter & SmartTags("P11_TempsC3") & gap & delimiter & gap & delimiter & SmartTags("P11_PoidsC3") & delimiter) P11_EnvoieDonneC3 = False End If If P11_EnvoieDonneC4 = True Then 'Ecriture des valeurs à archiver. fo.LinePrint(Now & delimiter & SmartTags("P11_TempsC4") & gap & delimiter & gap & delimiter & SmartTags("P11_PoidsC4") & delimiter) P11_EnvoieDonneC4 = False End If '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '--------------------------------- INFO POMPE 16 > L6 ------------------------ INFO POMPE 16 > L6 -------------------------------------------------------------------------------------------------------------- '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If P16_EnvoieDonneC1 = True Then 'Ecriture des valeurs à archiver. fo.LinePrint(Now & delimiter & SmartTags("P16_TempsC1") & gap & delimiter & gap & delimiter & gap & delimiter & SmartTags("P16_PoidsC1") & delimiter) P16_EnvoieDonneC1 = False End If If P16_EnvoieDonneC2 = True Then 'Ecriture des valeurs à archiver. fo.LinePrint(Now & delimiter & SmartTags("P16_TempsC2") & gap & delimiter & gap & delimiter & gap & delimiter & SmartTags("P16_PoidsC2") & delimiter) P16_EnvoieDonneC2 = False End If If P16_EnvoieDonneC3 = True Then 'Ecriture des valeurs à archiver. fo.LinePrint(Now & delimiter & SmartTags("P16_TempsC3") & gap & delimiter & gap & delimiter & gap & delimiter & SmartTags("P16_PoidsC3") & delimiter) P16_EnvoieDonneC3 = False End If If P16_EnvoieDonneC4 = True Then 'Ecriture des valeurs à archiver. fo.LinePrint(Now & delimiter & SmartTags("P16_TempsC4") & gap & delimiter & gap & delimiter & gap & delimiter & SmartTags("P16_PoidsC4") & delimiter) P16_EnvoieDonneC4 = False End If 'Fermeture du fichier fo.Close Set fo = Nothing -------------------------------------------------------------------------------------------------- This is the results of my script, and i dont want this. The problems is: when i write for the first column, the text is inserted on the first box. When i write for the second pump in the second column, the text is inserted on the second box, and i end up with empty box. I don't want empty box, have you got a solution? Attachment ArchivagesBeug.PNG (117 Downloads)

Suggestion To thank Quote Answer

3/29/2022 12:42 PM	Rate (0)
Corentinzx Member Joined: 11/13/2020 Last visit: 7/10/2024 Posts: 6 Rating: (0)	here is what I would like, and ideally with the date Attachment GoodArchivages.PNG (130 Downloads)

Suggestion To thank Quote Answer

3/29/2022 3:01 PM	Rate (0)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 11/5/2024 Posts: 3118 Rating: (514)	Hello Corentin, lineprint always creates a new line in the file. Therefor you have to collect all data for one line and write that with fo.lineprint and the delimiters between each column. Regards, Frink
	Pi is exactly three! All you have to do is think of things which people need but which don’t exist yet.
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Murof

3/31/2022 11:35 AM	Rate (0)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 11/5/2024 Posts: 14087 Rating: (1766)	Hello Corentinzx check this basic FAQ: https://support.industry.siemens.com/cs/ww/en/view/59604194 Here you can see exactly how the scripts and Files are working Bye Murof
	If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on