Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Reading Data Strings

Sub ReadStrings()            Dim sLine As String            Dim sFName As String    'Path and name of text file            Dim iFNumber As Integer    'File number            Dim lRow As Long     'Row number in worksheet            Dim lColumn As Long  'Column number in worksheet            Dim vValues As Variant 'Hold split values            Dim iCount As Integer  'Counter            sFName = "C:\Strings.txt"            iFNumber = FreeFile            Open sFName For Input As #iFNumber            Do            Line Input #iFNumber, sLine            vValues = Split(sLine, ";")            For iCount = LBound(vValues) To UBound(vValues)               Debug.Print  vValues(iCount)            Next iCount            Close #iFNumber      End Sub