Read text file and split the string to specific column in datagridview
-
Hi, Please help me how to add the blue color text to datagridview here is my code:
Dim FileLine As String Dim LineLength As Integer Using sr As New StreamReader("C:\\Users\\WIN 7\\Desktop\\rmsbp050\_09032018.txt") While Not sr.EndOfStream FileLine = sr.ReadLine() LineLength = FileLine.Length If LineLength = 59 Then DataGridView1.Rows.Add(FileLine.ToString, sr.ReadLine() & vbNewLine, sr.ReadLine() & vbNewLine & vbNewLine, sr.ReadLine() & vbNewLine & vbNewLine & vbNewLine) End If End While End Using
Here is the sample text file : BANK NAME 15 CUSTOMER INFORMATION SYSTEM *RMR100 * PAGE NO 1 CTL 2 000 PNB SAVINGS BANK MONDAY PROCESS DATE 09/03/18 CTL 3 000 ACTIVITY *RM 100* PROCESS THRU 09/03/18 CTL 4 0000 CURRENT DATE 09/03/18 BRANCH 0000 - PNB SAVNGS BANK CUSTOMER NAME CUSTOMER NBR CUSTOMER INITIATED? TRAN DATE TIME FIELD DESCRIPTION ACT TRAN ID AFTER EMPLOYEE TERMINAL LST MNT DATE LST MNT TIME BEFORE KEY CO, CARLOS VERA 00000004676090 N 09/03/18 10:21:42 RESP BR MNT RM1P 0000 15-000-1027993 B112 03/29/2017 02:16:23 09/03/18 10:21:42 SRC OF FUNDS MNT RM1P PENSION 15-000-1027993 B112 03/29/2017 02:16:23 SSS PENSIO 09/03/18 10:21:42 ACT OFFICER ID MNT RM1P 869376 15-000-1027993 B112 03/29/2017 02:16:23 00305294 09/03/18 10:21:42 DT LST RM ACTV MNT RM1P 20180903 15-000-1027993 B112 03/29/2017 02:16:23 20170329 09/03/18 10:21:42 CL RISK CLASS MNT RM1P B 15-000-1027993 B112 03/29/2017 02:16:23 C 09/03/18 10:21:42 CHK USER ID MNT RM1P 1027993 15-000-1027993 B112 03/29/2017 02:16:23 00144193 09/03/18 10:21:42 PH NBR MNT RM1P . 15-000-1027993 B112 03/29/2017 02:16:2
-
Hi, Please help me how to add the blue color text to datagridview here is my code:
Dim FileLine As String Dim LineLength As Integer Using sr As New StreamReader("C:\\Users\\WIN 7\\Desktop\\rmsbp050\_09032018.txt") While Not sr.EndOfStream FileLine = sr.ReadLine() LineLength = FileLine.Length If LineLength = 59 Then DataGridView1.Rows.Add(FileLine.ToString, sr.ReadLine() & vbNewLine, sr.ReadLine() & vbNewLine & vbNewLine, sr.ReadLine() & vbNewLine & vbNewLine & vbNewLine) End If End While End Using
Here is the sample text file : BANK NAME 15 CUSTOMER INFORMATION SYSTEM *RMR100 * PAGE NO 1 CTL 2 000 PNB SAVINGS BANK MONDAY PROCESS DATE 09/03/18 CTL 3 000 ACTIVITY *RM 100* PROCESS THRU 09/03/18 CTL 4 0000 CURRENT DATE 09/03/18 BRANCH 0000 - PNB SAVNGS BANK CUSTOMER NAME CUSTOMER NBR CUSTOMER INITIATED? TRAN DATE TIME FIELD DESCRIPTION ACT TRAN ID AFTER EMPLOYEE TERMINAL LST MNT DATE LST MNT TIME BEFORE KEY CO, CARLOS VERA 00000004676090 N 09/03/18 10:21:42 RESP BR MNT RM1P 0000 15-000-1027993 B112 03/29/2017 02:16:23 09/03/18 10:21:42 SRC OF FUNDS MNT RM1P PENSION 15-000-1027993 B112 03/29/2017 02:16:23 SSS PENSIO 09/03/18 10:21:42 ACT OFFICER ID MNT RM1P 869376 15-000-1027993 B112 03/29/2017 02:16:23 00305294 09/03/18 10:21:42 DT LST RM ACTV MNT RM1P 20180903 15-000-1027993 B112 03/29/2017 02:16:23 20170329 09/03/18 10:21:42 CL RISK CLASS MNT RM1P B 15-000-1027993 B112 03/29/2017 02:16:23 C 09/03/18 10:21:42 CHK USER ID MNT RM1P 1027993 15-000-1027993 B112 03/29/2017 02:16:23 00144193 09/03/18 10:21:42 PH NBR MNT RM1P . 15-000-1027993 B112 03/29/2017 02:16:2
Wouldn't you like to ask it in some of the VB Forums?