Siemens WinCC - Counting rows of a .csv file

[Rob...]

Been scratching my head at what I thought should be a relatively simple task.

I need to count how many rows a .csv file has, so I can later read data from the last row.

I have everything working, bar that. This is the VBS code I have so far to count the rows:

  Set fso = CreateObject("Scripting.FileSystemObject")
  fc = fso.OpenTextFile((Source),1,1).ReadAll
  RowArray = Split(fc,vbCrLf)
  NumberOfRows = CInt((UBound(RowArray)))
  	If NumberOfRows = 0 Then
		NumberOfRows = 1
	End If
  fso.close

Now this actually works, and produces the value I need. However, it throws Error 438 :- Object doesn't support this property or method.

Anyone see where I'm going wrong, or have a better solution?

Next will be to write it to also work with WinCE, but i'll cross that hurdle later.

 

[drbitboy]

Does the FileSystemObject have a .close method? Maybe it did in 2004 or later, but currently I think it does not (cf. this link)? If it does, it would start with an uppercase C.

I think [Set fso = Nothing] is what you want instead of fso.close.

 

[Rob...]

Does the FileSystemObject have a .close method? Maybe it did in 2004 or later, but currently I think it does not (cf. this link)? If it does, it would start with an uppercase C.

I think [Set fso = Nothing] is what you want instead of fso.close.

That was it.... set to nothing.

I'd actually already written this in my function to read the csv... too long looing at the screen I think.

        Set fso = CreateObject("Scripting.FileSystemObject")
	fc = fso.OpenTextFile((Source),1,1).ReadAll
  	RowArray = Split(fc,vbCrLf)
  	NumberOfRows = CInt((UBound(RowArray)))
  	If NumberOfRows = 0 Then
		NumberOfRows = 1
	End If
  	Set fso = Nothing

 

[Lare]

I would add on beginning and end.

Dim fso

Dim fc
Dim RowArray
Dim NumberOfRows


'Error handling

On Error Resume Next





Set fso = CreateObject("Scripting.FileSystemObject")

fc = fspenTextFile((Source),1,1).ReadAll


RowArray = Split(fc,vbCrLf)
NumberOfRows = CInt((UBound(RowArray)))
If NumberOfRows = 0 Then
NumberOfRows = 1
End If

Set fso = Nothing





'close file for next read / write

fc.Close

 

[Rob...]

@Lare this is part of a larger function. It's on an snip of what I was having trouble with.

FYI anyone interested, this albeit janky method works in WinCE.

Set fso = CreateObject("FileCtl.File") 		
	fso.Open Source, 1	
	While fso.EOF = False
		Data=fso.LineInputString
		NumberOfRows = NumberOfRows + 1
	Wend	
	Set fso = Nothing

 

[Lare]

@Lare this is part of a larger function. It's on an snip of what I was having trouble with.

FYI anyone interested, this albeit janky method works in WinCE.

Set fso = CreateObject("FileCtl.File")         
    fso.Open Source, 1    
    While fso.EOF = False
        Data=fso.LineInputString
        NumberOfRows = NumberOfRows + 1
    Wend    
    Set fso = Nothing

. Some years ago I had problems for writing to same text file as it was not closed after first opening and writing. fc.close worked for that vbs coding.

 

[L33er]

My Alexa is smarter than that.

"Alexa, number of rows in this page."