Hello,

have problem with script that i found on internet and i was adjusting that script for my use. Because i am complete new in scripting in VB i need help. Problem is i have made little test in script, so i take value of how much is fishmouth opened lets say 7.4 and when he takes that value he put in my excel sheet in one coulmn 7 i oder he put 4 and i dunno why he splits my value in two columns. Value that script takes is Real value from plc Tag.

Here is code also:

SUB FishMouthTest

Dim f, MyFile, dtDateTime, sMonth, sDay, sYear, sHour, sMinute, sSecond
Dim sFileName, sHeader, sPath, sFolder1

Dim testFishM


Check_if_TestData_DataLog_Folder_Exists
Check_TestData_Log_File_Header

'Setup Data File Storage Paths
sPath = "Storage Card SD"
sFolder1 = "TestData"

'Determine Date and Time and Move to variable
dtDateTime = Now
sYear = DatePart("yyyy",dtDateTime)

'Assign Runtime variables to Local Variables for Log File
sHeader = HmiRuntime.SmartTags("Log File Needs Header")

testFishM = HmiRuntime.SmartTags(("FishTest"))

'Determine Hour, Minute, and Seconds for Data File
sHour = DatePart("h", dtDateTime)
If Len(sHour) = 1 Then
sHour = "0" & sHour
End If

sMinute = DatePart("n", dtDateTime)
If Len(sMinute) = 1 Then
sMinute = "0" & sMinute
End If

sSecond = DatePart("s", dtDateTime)
If Len(sSecond) = 1 Then
sSecond = "0" & sSecond
End If


'Format Month for filename so it is always two digits
sMonth = DatePart("m", dtDateTime)
If Len(sMonth) = 1 Then
sMonth = "0" & sMonth
End If

'Format Day for filename so it is always two digits
sDay = DatePart("d", dtDateTime)
If Len(sDay) = 1 Then
sDay = "0" & sDay
End If

'Format filename using date structure (yearmonthday).csv
sFileName = "Test_"
sFileName = sFileName & DatePart("yyyy", dtDateTime)
sFileName = sFileName & sMonth
sFileName = sFileName & sDay
sFileName = sFileName & ".csv"
MyFile = ("\" & sPath & "\" & sFolder1 & "\" & sFileName)

'Write Data in Data File

On Error Resume Next

Set f = CreateObject("FileCtl.File")

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" ^ CStr(Err.Number) & " " & Err.Description
Exit Sub
End If

f.open MyFile, 8

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" ^ CStr(Err.Number) & " " & Err.Description
Exit Sub
End If

If sHeader <> 0 Then
f.LinePrint ("Date," & "Time," & "Fish Mouth")
End If


f.LinePrint (sMonth & "/" & sDay & "/" & sYear & "," & sHour & ":" & sMinute & ":" & sSecond & ","& testFishM)
f.Close

Set f = Nothing

ShowSystemAlarm "Storage of the data was successful!"
ResetBit "Log File Needs Header"
HmiRuntime.SmartTags("Log Data") = 0
End Sub

Also i tryed converting that value to double/string and he still split my double and string.

And here is excel file also. If anyone can tell me why is this happening i would be grateful.

Thanks guys in advance!!!

Okey i found solution for this problem. Problem was in delimetar so insted of "," in my print line you put what ever is your delimeter for you region of world. When i switched HMI to English(United States) everything was fine because HMI default is German.