¿Cómo leer texto web en Easy Language?
Versión 2
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()