Entry Parse
MABOT
Author name
1.0
Desktop
[AjaxData],[barraprogreso_login],[bbdd_conn_array([items_array])],[bbdd_conn_array(0)],[bbdd_conn_array],[bbdd_conn_cfg],[bbdd_conn_pass],[bbdd_conn_string],[bbdd_conn_user],[bbdd_conn_val],[Data],[edad],[Empty],[items_array],[items_array_length],[m],[menu],[Nombre],[password],[radio_user],[ReturnStatus],[s],[Score],[souser],[Status],[timer],[user_connect],[usuario],[v_dsn],[v_flow],[v_mail],[v_nombre],[v_usuario]
True
1280
800
False
False
False
WebApp
False
D:\Xampp\htdocs\fill_combobox
C:\Users\yapssr\OneDrive - TERNIUM\Proyectos\NeoPython\Compilado\neosinf.zip
C:\Users\yapssr\Documents\VisualNeoWeb\Libraries\img\default-icon.png
es
True
True
#000000
[AndroidOS,iOS,WindowsPhoneOS]
normal
False
False
False
False
False
False
False
False
False
False
slCenterApp 1280 800
slAppBackgroundColor "#efefef"
slSetCSSProperty "Home" "border" "1px solid black"
slSetCSSProperty "Home" "overflow" "hidden"
LoadApp "http://localhost"
.SetVar [password] ""
.SetVar [user_connect] ""
Math "([s]+1)" 0 [s]
If [s] == 60
SetVar [s] 0
Math "([m]+1)" 0 [m]
EndIf
MastePage
.Leo el archivo para conocer las entradas escritas
.read the file (i put this is on page enter)
FileToVar "http://localhost/fill_Combobox/bbdd_conn.txt" [bbdd_conn_cfg]
328px
120px
648px
200px
16px
64px
612px
32px
bbdd_conn_val
[bbdd_conn_val]
False
16px
16px
224px
24px
String de conexión a la bbdd:
224px
128px
216px
40px
Cargar entradas de bbdd
DeleteVar [items_array_length]
SetVar [items_array_length] 0
If [items_array_length] == 0
.Leo el archivo para conocer las entradas escritas
.Paseo las lineas separadas por coma (,)
.parsing the lines by (,)
StrParse "[bbdd_conn_cfg]" "," [bbdd_conn_array]
.traigo el largo de la cadena que sería 4 en este ejemplo
ArrayLen [bbdd_conn_array] [items_array_length]
.Seteo la variable items_array en 0 para empezar el calculo
SetVar [items_array] 0
.Adiciono el primer array (0)
ListBoxAddItem "bbdd_conn_combox" "[bbdd_conn_array(0)]" "[bbdd_conn_array(0)]"
.mientras el items_array sera menor que el largo total del array formado aumenta en 1}
.while items_array be less than or equal items_array_length sum 1
While [items_array] < [items_array_length]
.sumo +1
Math "([items_array]+1)" 0 [items_array]
.AlertBox "Prueba" "El valor del array es: [items_array]" ""
.ListBoxAddItem "bbdd_conn_combox" "[bbdd_conn_array(0)]" "[bbdd_conn_array(0)]"
.Add a new item array to the combobox until complete items_array_length
ListBoxAddItem "bbdd_conn_combox" "[bbdd_conn_array([items_array])]" "[bbdd_conn_array([items_array])]"
EndWhile
ListBoxSort "bbdd_conn_combox"
EndIf
0px
728px
1280px
72px
0px
0px
640px
480px
False