Hi,
I am trying to read a text file and accept only selective portion of
the same.
Text file will be like this. 1st line is name, 2nd line is code.
madiya
122
raja
269
tata
222
hag
9897

I would like to get the code of the name I select in my variable.
Say If I assign my variable raja, I want to read the text file and get
269,
Similarly, for tata, I get 222 etc. which means find the name in text
file and return the next line
immediatly below the name.

So fat I have below code which reads entire text file.
Sub nametocodes()
Dim LineofText As String
i = 0
Open "C:\Codelist.txt" For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, LineofText
Debug.Print LineofText
Loop
Close #1
End Sub

Pl help me to get only required data from text file.

Regards,
Madiya

Try this

So fat I have below code which reads entire text file.
Sub nametocodes()
Dim LineofText As String
SearchName = "raja"
i = 0
Open "C:\Codelist.txt" For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, LineofText
Debug.Print LineofText
if LineofText = SearchName then
Line Input #1, LineofText
SearchValue = Lineoftext
exit do
end if
Loop
Close #1
End Sub


"Madiya" wrote:

Hi,
I am trying to read a text file and accept only selective portion of
the same.
Text file will be like this. 1st line is name, 2nd line is code.
madiya
122
raja
269
tata
222
hag
9897

I would like to get the code of the name I select in my variable.
Say If I assign my variable raja, I want to read the text file and get
269,
Similarly, for tata, I get 222 etc. which means find the name in text
file and return the next line
immediatly below the name.

So fat I have below code which reads entire text file.
Sub nametocodes()
Dim LineofText As String
i = 0
Open "C:\Codelist.txt" For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, LineofText
Debug.Print LineofText
Loop
Close #1
End Sub

Pl help me to get only required data from text file.

Regards,
Madiya

On Oct 20, 3:57*pm, Joel wrote:
Try this

So fat I have below code which reads entire text file.
Sub nametocodes()
Dim LineofText As String
SearchName = "raja"
i = 0
Open "C:\Codelist.txt" For Input As #1
* Do While Not EOF(1)
* * i = i + 1
* * Line Input #1, LineofText
* * Debug.Print LineofText
* *if LineofText = SearchName then
* * * Line Input #1, LineofText
* * * SearchValue = Lineoftext
* * * exit do
* *end if
* Loop
Close #1
End Sub



"Madiya" wrote:
Hi,
I am trying to read a text file and accept only selective portion of
the same.
Text file will be like this. 1st line is name, 2nd line is code.
madiya
122
raja
269
tata
222
hag
9897

I would like to get the code of the name I select in my variable.
Say If I assign my variable raja, I want to read the text file and get
269,
Similarly, for tata, I get 222 etc. which means find the name in text
file and return the next line
immediatly below the name.

So fat I have below code which reads entire text file.
Sub nametocodes()
Dim LineofText As String
i = 0
Open "C:\Codelist.txt" For Input As #1
* Do While Not EOF(1)
* * i = i + 1
* * Line Input #1, LineofText
* * Debug.Print LineofText
* Loop
Close #1
End Sub

Pl help me to get only required data from text file.

Regards,
Madiya- Hide quoted text -

- Show quoted text -

Joel,
Thanks.
Madiya