Página 1 de 1

ayuda archivo .ini dar ejecutar enter

Publicado: 17 Mar 2011, 08:11
por vladhampir
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

Re: ayuda archivo .ini dar ejecutar enter

Publicado: 17 Mar 2011, 12:08
por jamaro
Hola vladhampir, siempre he escrito para pedir ayuda en este foro, así que ahora me aventuro a responder a alguna de las tuyas.

Sobre la primera cuestión, no sé exactamente lo que buscas, y si esto que pongo es lo que preguntas. No lo he probado pero ¿podría servirte añadir & @CRLF?

Código: Seleccionar todo

IniWrite($readempresa, GUICtrlRead($Input2), "Tiempo", ($read3) & @CRLF)
EDITO:Acabo de probar, y, si bien crea un salto de línea después de la entrada en el archivo .ini, cuando se intenta leer después con IniRead, sólo toma el dato que hay después del =, en la misma línea, obviando la línea siguiente.

En cuanto a la terminación .ini, no sé si esta línea de código te sirve para lo que pretendes. Lo que hace es crear un nombre de archivo ini, igual al del script simplemente reemplazando la extensión.

NOMBREARCHIVO.au3 o NOMBREARCHIVO.exe pasa a nombrarse NOMBREARCHIVO.ini

Código: Seleccionar todo

Global $archivoini = @ScriptDir & "\" & StringLeft(@ScriptName, StringLen(@ScriptName) - 4) & ".ini"
Un saludo

Re: ayuda archivo .ini dar ejecutar enter

Publicado: 17 Mar 2011, 20:57
por vladhampir
gracias por tu ayuda jamaro
en verdad me sirvio para dar el espacio y respecto a la terminacion .ini solo bastaba con agregar & ".ini"

jeje de antemano muchas gracias el codigo lo dejo para que lo veas

#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 & ".ini", GUICtrlRead($Input2), "Tiempo", ($read3))
IniWrite($readempresa & ".ini", GUICtrlRead($Input2), "Costo", ($read4))
IniWrite($readempresa & ".ini", GUICtrlRead($Input2), "Total", ($read5)& @CRLF)



case $calcular
$read3 = GUICtrlRead($Input3)
$read4 = GUICtrlRead($Input4)
$Z = ($read3 * $read4)
GUICtrlSetData($Input5, $Z)




Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Re: ayuda archivo .ini dar ejecutar enter

Publicado: 17 Mar 2011, 22:02
por jamaro
Un placer haberte sido útil.

Saludos