Escribí un programa en un lenguaje simple. La mayor parte del código es para procesar paquetes de datos y enviar paquetes de datos. Usando el modo de depuración de lenguaje simple, puedo ejecutar el programa sin errores de principio a fin.

.Biblioteca de Internet de soporte

.Biblioteca de especificaciones de soporte

.Subroutine_Button1_Clicked

.La variable local devuelve texto, tipo de texto

devolver texto = a texto(HTTP leer archivo("" + codificación URL(editbox1.content))

Salida de depuración(devolver texto)

. URL de subrutina codificación, tipo de texto

Antes de la conversión de parámetros, tipo de texto

La codificación personalizada del parámetro, tipo de texto, se puede dejar en blanco (se puede dejar en blanco) Ejemplo: (espacio)| +, ?,,/|/ separado por |, (espacio),/|/ reemplazado, separado por |, separado por múltiplos

Parámetro convert_only_kanji, lógico, puede estar vacío, puede estar vacío, el valor predeterminado es. conversión completa, verdadero convert_only_kanji

. Variable local local_data, conjunto de bytes

. Variable local i, variable local ii, entero

. , después de la conversión

Texto de variable local, tipo de texto

Variable local personalizada, texto, "0"

Variable local th, tipo de texto, . "2"

Local_data = a byteset (eliminar el primer y último valor nulo (antes de la conversión))

Después de la conversión = ""

Personalizado = dividir texto ( codificación personalizada, ",", )

.Cuenta el bucle primero (toma la longitud del conjunto de bytes (local_data), i)

.El juicio comienza (obtiene miembros de la matriz (personalizado) > 0)

.Contar inicio (obtener miembros de la matriz (personalizado), ii)

th = texto dividido (personalizado [ii], "|", )

.If verdadero (tome el lado derecho del texto(Custom[ii], 1) = "|" o busque el texto(Custom[ii], "|", 0, false) < 0)

Agregar miembro (th, th [1])

.End if true

.if (obtener código (th [ 1], 1) = local_data [i])

text = th [2]

Salir del bucle ()

De lo contrario

. if (solo kanji = verdadero)

.El juicio comienza (local_data [i] > 122)

texto = "%" + tomar texto hexadecimal (local_data [i])

.Valor predeterminado

Texto = carácter (local_data [i])

.Fin del juicio

. De lo contrario

Texto = "%" + obtener texto hexadecimal (local_data [i])

.if end

.

If end

.El bucle de conteo termina ()

.Default

.If (solo kanji = verdadero)

.Determina el inicio ( local_data [i] > 122)

texto = "%" + tomar texto hexadecimal (local_data [i])

.Valor predeterminado

texto = carácter ( local_data[i])

. Termina el juicio

. De lo contrario

Texto = "%" + obtener texto hexadecimal (local_data [i])

.if end

. Fin del juicio

Después de la conversión = Después de la conversión + texto

Fin del ciclo de conteo ()

Retorno (después de la conversión)

. .