Find the corresponding line in txt text with vb, and then copy the content into the text box.

Dim myline is a string, k 1g is a boolean, and k2g is a boolean.

Open the application. Path and path. "\list.txt" as # 1

Do While Not EOF( 1)

Line input # 1, my line

If k2g = true, then

List 1。 AddItem myline

K2g = false

If ... it will be over.

If myline = "* "and k 1g = False, then

K2g = true

else if myline = " * " And k 1g = True Then

K 1g = false

If ... it will be over.

ring

Close # 1

End joint

Private sublist 1_Click ()

Text 1。 Text = ""

Dim temp in string form

Adjust myline to a string.

Dim kg 1 is a boolean value, and kg2 is a boolean value.

Kg 1 = false

Kg2 = False

Open the application. Path and path. "\list.txt" as # 1

Do While Not EOF( 1)

Line input # 1, my line

If kg2, then

If myline = "* ",then

Exit Do

other

Text 1。 Text = temperature

Temperature = temperature+rice noodles+vbCrLf

Text 1。 Text = temperature

If ... it will be over.

If ... it will be over.

If myline = "* ",then

Kg 1 = true

If ... it will be over.

If kg 1, then

If myline = List 1。 List (List 1. ListIndex) and then

Kg2 = true

Kg 1 = false

Text 1。 Text = Text 1。 Text+rice noodles+vbCrLf

other

Kg2 = False

If ... it will be over.

If ... it will be over.

ring

Close # 1

End joint

======================================================================

Code representation

Download address:/u/322483/%E6% A3% 80% E7% B4% A2TXT% E8% BD% A6% E6% AC% a1.rar.

======================================================================

Ps: Do you work at the railway station? Like my parents. ...