¿Cómo mostrar el precio unitario del medicamento seleccionado en la lista en texto en VB?

Supongamos que el nombre del archivo es YaoPin.txt y está almacenado en la misma carpeta que el archivo del proyecto. El contenido del archivo es:

"Amoxicilina", 65,200

"Qiankang", 23150

"Detox Yang Yan Capsule", 65100

"Lianhua Qingwen Capsule", 78,300

El código es el siguiente :

Opción explícita

Private YM() como cadena

Private DJ() como único

Private SL() como entero

Subform_Load() privado

Leer información del archivo

Marcar MyStr como una cadena

Representar n como un número entero

Etiqueta L como un número entero

Lista1. claro

n = -1

Abre la aplicación. Caminos y caminos. " \YaoPin.txt "Para entrada Como #1 'Abrir archivo leyendo.

"Do While Not EOF(1)" llega al final del archivo.

Entrada de línea #1, MyStr 'Leer una línea.

n = n + 1

ReDim retiene YM(n) como una cadena

ReDim retiene DJ(n) como un solo

ReDim conserva SL(n) como un número entero

L = InStr(MyStr, ","")

YM(n) = Mid(MyStr, 2, L - 3)

Lista1. AddItem YM(Norte)

MiCadena = Derecha(MiCadena, Len(MiCadena) - L)

L = InStr(MiCadena, ","")

DJ (n) = Val(Izquierda(MiCadena, L - 1))

MiCadena = Derecha(MiCadena, Len(MiCadena) - L)

SL(n) = Val(MiCadena) )

Timbre

' Cerrar #1 'Cerrar el archivo.

Lista1. seleccionado(0) = verdadero

EndConnector

Sublista privada1_Click()

Texto1. Texto = DJ(List1.ListIndex)

Conector final

Subtexto privado2_Change()

SMS 3. Texto = Val(Texto2.Texto) * Val(Texto1.Texto)

Conector final