Aplicación sin título MyApp Author name 1.0 Desktop [bbdd_conn_array(0)],[bbdd_conn_array(1)],[bbdd_conn_array(3)],[bbdd_conn_array],[bbdd_conn_cfg],[bbdd_conn_list],[bbdd_conn_val],[items_array],[items_array_length],[num],[valor] True 1280 800 False False False WebApp False C:\laragon\www C:\Users\yapssr\Documents\VisualNeoWeb\Libraries\img\default-icon.png en #000000 [AndroidOS,iOS,WindowsPhoneOS] normal True True False True True False False True False False .Leo el archivo para conocer las entradas escritas FileToVar "http://localhost/cfg_conn/bbdd_conn.txt" [bbdd_conn_cfg] .FileToVar "http://localhost:8000/cgi-bin/bbdd_conn.cfg" [bbdd_conn_cfg] .localhost es C:/laragon/www .AlertBox "FirstElement" [bbdd_conn_array(0)] "" .FileToVar "http://localhost:8000/cgi-bin/bbdd_conn.cfg" [bbdd_conn_cfg] .localhost es C:/laragon/www .DeleteVar [bbdd_conn_cfg] .FileToVar "http://localhost/cfg_conn/bbdd_conn.txt" [bbdd_conn_cfg] .SetVar [bbdd_conn_list] "Apple|A,Banana|B,Cherry|C,Date|D,Egg|E,Fish|F,Gooseberry|G" .SetVar [bbdd_conn_list] [bbdd_conn_cfg] .StrParse [bbdd_conn_list] "|" [bbdd_conn_array] .AlertBox "FirstElement" "[bbdd_conn_array(0)]" "" .ArrayLen [bbdd_conn_array] [items_array_length] .FileToVar "http://localhost/cfg_conn/bbdd_conn.txt" [bbdd_conn_cfg] .StrParse [bbdd_conn_cfg] "," [bbdd_conn_array] .ListBoxAddItem "Combobox1" "[bbdd_conn_array(0)]" "[bbdd_conn_array(0)]" .ListBoxAddItem "Combobox1" "[bbdd_conn_array(1)]" "[bbdd_conn_array(1)]" .ListBoxAddItem "Combobox1" "[bbdd_conn_array(2)]" "[bbdd_conn_array(2)]" .ListBoxAddItem "Combobox1" "[bbdd_conn_array(3)]" "[bbdd_conn_array(3)]" .EndIf 128px 152px 592px 192px file line readed: [bbdd_conn_cfg] 128px 360px 1056px 176px [bbdd_conn_list] 360px 40px 552px 40px bbdd_conn_val [bbdd_conn_val] False ListBoxGetSelectedItem "Combobox1" [bbdd_conn_val] SetVar [valor] [bbdd_conn_val] .ListBoxGetSelectedIndex "Combobox1" [valor] 128px 552px 1056px 184px [bbdd_conn_array(0)]<BR>[bbdd_conn_array(1)]<BR>[bbdd_conn_array(1)]<BR>[bbdd_conn_array(3)] 128px 40px 176px 64px Read File glyphicon-list-alt primary .FileToVar "http://localhost:8000/cgi-bin/bbdd_conn.cfg" [bbdd_conn_cfg] .localhost es C:/laragon/www .AlertBox "FirstElement" [bbdd_conn_array(0)] "" .FileToVar "http://localhost:8000/cgi-bin/bbdd_conn.cfg" [bbdd_conn_cfg] .localhost es C:/laragon/www .DeleteVar [bbdd_conn_cfg] .FileToVar "http://localhost/cfg_conn/bbdd_conn.txt" [bbdd_conn_cfg] .SetVar [bbdd_conn_list] "Apple|A,Banana|B,Cherry|C,Date|D,Egg|E,Fish|F,Gooseberry|G" .SetVar [bbdd_conn_list] [bbdd_conn_cfg] .StrParse [bbdd_conn_list] "|" [bbdd_conn_array] .AlertBox "FirstElement" "[bbdd_conn_array(0)]" "" SetVar [items_array_length] 0 If [items_array_length] == 0 .Leo el archivo para conocer las entradas escritas (esto esta puesto al entrar a la pagina porque si lo pongo en el boton debo presionar dos veces para que funcione correctamente, ya que se detiene el scriot al leer el archivo y cargar las variables) .read the file (i put this is on page enter) .FileToVar "http://localhost/cfg_conn/bbdd_conn.txt" [bbdd_conn_cfg] .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 .bringing the array length ArrayLen [bbdd_conn_array] [items_array_length] .Seteo la variable items_array en 0 para empezar el calculo .Setting the variable items_array in cero to begin the calc SetVar [items_array] 0 .Adiciono el primer array (0) .Adding first Item array (0) ListBoxAddItem "Combobox1" "[bbdd_conn_array(0)]--->[items_array]" "[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 "Combobox1" "[bbdd_conn_array(0)]" "[bbdd_conn_array(0)]" .Add a new item array to the combobox until complete items_array_length ListBoxAddItem "Combobox1" "[bbdd_conn_array([items_array])]--->[items_array]" "[bbdd_conn_array([items_array])]" EndWhile ListBoxSort "Combobox1" EndIf 752px 152px 432px 192px items array length: [items_array_length] <BR><BR>item selected value: [valor] 0px 0px 1280px 800px False