Obtener texto de página web en un lenguaje sencillo
.Versión 2
.Bibliotecas compatibles Internet
.Ventana de ensamblaje 1
.Texto de página web variable de ensamblaje, basado en texto
. Texto temporal de la variable de ensamblaje, basado en el texto
Texto requerido de la variable de ensamblaje, tipo de texto, "0"
Tiempo intermedio de la variable de ensamblaje, tipo de texto, "0". /p>
.Subroutine_button1_clicked
Texto de la página web = a texto (archivo de lectura HTTP ("")) ' Este es el sitio de publicación de hora del servidor de red del Centro Nacional de Servicio de Hora
p>Texto requerido = texto dividido (texto de la página web, "Hora del servidor", ) 'Dividir el texto recuperado porque necesitamos tiempo de red después
. Si es verdadero (obtener el número de miembros de la matriz (texto deseado) < 2) ' Determina si se obtienen los datos requeridos
Cuadro de mensaje ("¡Error al obtener la hora de la red! ¡Error en el enlace de red!", 0 + # Icono de mensaje , "Temporizador de red:")
Retorno ()
.Si es verdadero fin
Texto temporal = Texto requerido [2]
Texto requerido = Texto dividido (texto temporal, "document.write('", )
Tiempo intermedio = Texto dividido (texto requerido [3], "') ", )
Cuadro de edición 1. Contenido = tiempo intermedio [1] ' Año/mes/día de salida
Texto temporal = texto requerido [6]
Texto requerido = texto dividido (texto temporal, "var hrs = ", )
Texto temporal = Texto requerido [2]
Tiempo intermedio = Texto dividido (texto temporal, ";", )
Cuadro de edición 2.Contenido = Tiempo intermedio [1] ' Sacar horas
Texto requerido = Texto dividido (texto temporal, "var min = ", )
Texto temporal = Texto requerido [2]
Tiempo intermedio = Texto dividido (Texto temporal, ";", )
Cuadro de edición 3. Contenido = Tiempo intermedio [1] 'Minutos de salida
Texto requerido = Texto dividido (Texto temporal, "var sec = ", )
Texto temporal = Texto requerido[2]
Tiempo intermedio = Texto dividido (Texto temporal, ";", )
Cuadro de edición 4. Contenido = Tiempo intermedio [1] 'Segundos de pago