Count words in a line of a txt file

[Ridelmou]

Hi everyone.
Im working on a small macro that brings coordinates of points as (P X Y Z D) format.
Ex:
1 4354 5456. 43.40 R
2 5432 6578 45.78 Corner
3 6578 6765 56.76
4 6548 9806 56.99 R
.
.
... Etc
The probleme is that some files doesnt contain the D column.
I need to count words or spaces or if there is a way to count columns in text files.
Im nee bee btw.
Thank u

 

[JEC]

What is your expected output?

4
4
3
4

?

 

[Ridelmou]

What is your expected output?

4
4
3
4

?

1st row : 5 columns
2nd : 5
3rd : 4
4th : 5

 

[JEC]

Sub jec()
 Dim tLine
 Open "C:\Users\xxxx\Downloads\testf.txt" For Input As #1
 
 Do Until EOF(1)
   Line Input #1, tLine
   Debug.Print UBound(Split(tLine)) + 1
 Loop

 Close #1
End Sub

 

[Ridelmou]

Sub jec()
 Dim tLine
 Open "C:\Users\xxxx\Downloads\testf.txt" For Input As #1
 
 Do Until EOF(1)
   Line Input #1, tLine
   Debug.Print UBound(Split(tLine[B][U],vbTab[/U][/B])) + 1
 Loop

 Close #1
End Sub

I implemented the code and added vbTab in split Function as my data is sparated by Tabs.
Thank you very much