ayuda archivo .ini dar ejecutar enter
Publicado: 17 Mar 2011, 08:11
hola muchas gracias espero no ser una molestia por que cada que vez que tengo una duda y lo busco en la ayuda del programa ya sea que no la encuentre o no la entienda recurro a ustedes agradezco mucho su tiempo
bueno y para no perder la costumbre mi duda es la siguiente
tengo un codigo realmente sencillo pero tengo un problema quiero que cada vez que guarde un dato en un archivo ini el proximo dato que guarde quede separado por enter y el segundo problema que tengo es
que quiero que el archivo ini se le agregue el nombre desde el exe el detalle esta que lo crea pero no se como agregarle la terminacion .ini
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#Region ### START Koda GUI section ### Form=
$Goliath = GUICreate("Goliath", 171, 361, 215, 124)
$Guardar = GUICtrlCreateButton("Guardar", 40, 304, 91, 33, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 24, 32, 121, 21)
$Input2 = GUICtrlCreateInput("", 24, 80, 121, 21)
$Input3 = GUICtrlCreateInput("", 24, 128, 121, 21)
$Input4 = GUICtrlCreateInput("", 24, 176, 121, 21)
$Input5 = GUICtrlCreateInput("", 24, 272, 121, 21)
$calcular = GUICtrlCreateButton("calcular", 40, 208, 89, 33, $WS_GROUP)
$corte = GUICtrlCreateLabel("Corte", 24, 56, 41, 17)
$Tiempo = GUICtrlCreateLabel("Tiempo", 24, 104, 39, 17)
$Costo = GUICtrlCreateLabel("Costo", 24, 152, 31, 17)
$Total = GUICtrlCreateLabel("Total", 24, 248, 28, 17)
$Empresa = GUICtrlCreateLabel("Empresa", 24, 8, 53, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Guardar
$readempresa = GUICtrlRead($Input1)
$read2 = GUICtrlRead($Input2)
$read3 = GUICtrlRead($Input3)
$read4 = GUICtrlRead($Input4)
$read5 = GUICtrlRead($Input5)
IniWrite($readempresa, GUICtrlRead($Input2), "Tiempo", ($read3))
IniWrite($readempresa, GUICtrlRead($Input2), "Costo", ($read4))
IniWrite($readempresa, GUICtrlRead($Input2), "Total", $read5)
case $calcular
$read3 = GUICtrlRead($Input3)
$read4 = GUICtrlRead($Input4)
$Z = ($read3 * $read4)
GUICtrlSetData($Input5, $Z)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
bueno gracias de nuevo
bueno y para no perder la costumbre mi duda es la siguiente
tengo un codigo realmente sencillo pero tengo un problema quiero que cada vez que guarde un dato en un archivo ini el proximo dato que guarde quede separado por enter y el segundo problema que tengo es
que quiero que el archivo ini se le agregue el nombre desde el exe el detalle esta que lo crea pero no se como agregarle la terminacion .ini
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#Region ### START Koda GUI section ### Form=
$Goliath = GUICreate("Goliath", 171, 361, 215, 124)
$Guardar = GUICtrlCreateButton("Guardar", 40, 304, 91, 33, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 24, 32, 121, 21)
$Input2 = GUICtrlCreateInput("", 24, 80, 121, 21)
$Input3 = GUICtrlCreateInput("", 24, 128, 121, 21)
$Input4 = GUICtrlCreateInput("", 24, 176, 121, 21)
$Input5 = GUICtrlCreateInput("", 24, 272, 121, 21)
$calcular = GUICtrlCreateButton("calcular", 40, 208, 89, 33, $WS_GROUP)
$corte = GUICtrlCreateLabel("Corte", 24, 56, 41, 17)
$Tiempo = GUICtrlCreateLabel("Tiempo", 24, 104, 39, 17)
$Costo = GUICtrlCreateLabel("Costo", 24, 152, 31, 17)
$Total = GUICtrlCreateLabel("Total", 24, 248, 28, 17)
$Empresa = GUICtrlCreateLabel("Empresa", 24, 8, 53, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Guardar
$readempresa = GUICtrlRead($Input1)
$read2 = GUICtrlRead($Input2)
$read3 = GUICtrlRead($Input3)
$read4 = GUICtrlRead($Input4)
$read5 = GUICtrlRead($Input5)
IniWrite($readempresa, GUICtrlRead($Input2), "Tiempo", ($read3))
IniWrite($readempresa, GUICtrlRead($Input2), "Costo", ($read4))
IniWrite($readempresa, GUICtrlRead($Input2), "Total", $read5)
case $calcular
$read3 = GUICtrlRead($Input3)
$read4 = GUICtrlRead($Input4)
$Z = ($read3 * $read4)
GUICtrlSetData($Input5, $Z)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
bueno gracias de nuevo