¿Cómo leer texto web en Easy Language?

Admite especificaciones de biblioteca

. Ventana de ensamblaje ventana de ensamblaje_inicio

. Se hizo clic en subrutina_button1_.

. Variable local JSON, clase _json

. Contenido de variable local, tipo de texto

. Variable local I, tipo entero.

Contenido = To Text(Webpage_Access_Object("/?c = json ampa = getVoters ampids = 24117 2c 24118 2c 24119 2c 24120 2c 24121 2c 24122 2c 24123 2c 24123

DebugOutput(Contenido )

JSON.Parse(Contenido)

. count_loopHeader(JSON.Number of Members(), I)

DebugOutput( JSON. Obtener el atributo general ( "[" al texto (I-1) ").voter"))

Cola del período de conteo()