' Cordial により出力されるテキストのレコード構造体
Structure udtCordial_Tags
Dim udtCordial_Tags_strClean_String As String
Dim udtCordial_Tags_strDic_String As String
Dim udtCordial_Tags_strDiscrimer As String
End Structure

Module srcUser_Functions
Public Function fncFile_Read_Using_Dot_NET_Class_Lib(ByVal strSearch_String As String)
Dim frmMaster_Form As frmMaster_Form = New frmMaster_Form()
Dim strReader As StreamReader
strReader = New StreamReader("D:\TEST2.TXT")
Do
Dim strLine_Buffer As String '宣言と同時に初期化
strLine_Buffer = strReader.ReadLine()
If strLine_Buffer <> Nothing Then
Dim strSearch_String_Buffer As String
Dim intRecord_Count As Integer
strSearch_String_Buffer = InStr(strLine_Buffer, strSearch_String)
'frmMaster_Form.lstProgress_Palette.BeginUpdate()
frmMaster_Form.lstProgress_Palette.Items.Add(strLine_Buffer)
'frmMaster_Form.lstProgress_Palette.EndUpdate()
intRecord_Count = strLine_Buffer.Length
Debug.WriteLine(intRecord_Count)
Else
Exit Do
End If
Loop
strReader.Close()
End Function
End Module