[kaster]

Код:

#include <GUIConstantsEx.au3>
$hWrite = FileOpen(@ScriptDir & '\file.ext', 2)
$hGUI = GUICreate('I''m a crasy dentist', 300, 300)
$hButton = GUICtrlCreateButton('Create file', 10, 260, 70, 30)
Local $hLabel[9][2], $sLabel[9], $hInput[9]
$sLabel[0] = 'Диаметр окружности впадин зубьев, df'
$sLabel[1] = 'Делительный диаметр, d'
$sLabel[2] = 'Диаметр окружности вершин зубьев, da'
$sLabel[3] = 'Ширина, b'
$sLabel[4] = 'Диаметр ступицы, dst'
$sLabel[5] = 'Длина ступицы, Lst'
$sLabel[6] = 'Толщина венца, hv'
$sLabel[7] = 'Диаметр расположения отверстий, dro'
$sLabel[8] = 'Диаметр отверстий, do'

$hLabel[0][1] = '[mm]p9='
$hLabel[1][1] = '[mm]p10='
$hLabel[2][1] = '[mm]p11='
$hLabel[3][1] = '[mm]p12='
$hLabel[4][1] = '[mm]p13='
$hLabel[5][1] = '[mm]p14='
$hLabel[6][1] = '[mm]p15='
$hLabel[7][1] = '[mm]p16='
$hLabel[8][1] = '[mm]p17='

For $i = 0 to 8
    $hLabel[$i][0] = GUICtrlCreateLabel($sLabel[$i], 10, 10 + $i * 28, 180, 15)
    $hInput[$i] = GUICtrlCreateInput($i, 230, 10 + $i * 28, 50, 15)
Next
GUISetState()
While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            GUIDelete($hGUI)
            ExitLoop
        Case $hButton
            For $i = 0 to 8
                FileWriteLine($hWrite, $hLabel[$i][1] & GUICtrlRead($hInput[$i]))
            Next
            FileClose($hWrite)
    EndSwitch
WEnd

[Pozia]

kaster, а можно чтобы скрипт отслеживал введенные значения по полученному файлу?

[kaster]

в чем проявляется слежение? и какой вид имеет полученный файл?

[Pozia]

какой вид имеет полученный файл? »

полученный файл имеет вид как нужно. Все работает ок. Объясню подробнее. вот допустим я ввел данные. Когда в следующий раз запущу скрипт то в ячейках будут цифры по умолчанию. А хотелось бы чтоб цифры там были из последнего сеанса запуска, тобишь из файла file.ext

и зашитые по умолчанию цифры 1 2 3 4 5 ... как поменять на нужные не понял я что то

[kaster]

а. понял. последние введенные данные.
а выходной файл может иметь вид следующий?

Код:

[settings]
[mm]p9=128
[mm]p10=133
[mm]p11=137
[mm]p12=25
[mm]p13=65
[mm]p14=60
[mm]p15=8
[mm]p16=89
[mm]p17=17

ну или любое другое значение вместо [settings]? просто в таком случае это получится ini файл для парсинга которого есть встроенные средства. в противном случае есть два варианта
1. длинный, и не совсем понятный для тебя судя по вопросам, код
2. создание вспомогательного файла, который будет практически дублировать file.ext но с заголовком [settings]

[Creat0R]

Код:

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>

$hGUI = GUICreate('I''m a crasy dentist', 300, 300)
$hButton = GUICtrlCreateButton('Create file', 10, 260, 70, 30)

Local $hLabel[9][2], $sLabel[9], $hInput[9]
$sLabel[0] = 'Диаметр окружности впадин зубьев, df'
$sLabel[1] = 'Делительный диаметр, d'
$sLabel[2] = 'Диаметр окружности вершин зубьев, da'
$sLabel[3] = 'Ширина, b'
$sLabel[4] = 'Диаметр ступицы, dst'
$sLabel[5] = 'Длина ступицы, Lst'
$sLabel[6] = 'Толщина венца, hv'
$sLabel[7] = 'Диаметр расположения отверстий, dro'
$sLabel[8] = 'Диаметр отверстий, do'

$hLabel[0][1] = '[mm]p9='
$hLabel[1][1] = '[mm]p10='
$hLabel[2][1] = '[mm]p11='
$hLabel[3][1] = '[mm]p12='
$hLabel[4][1] = '[mm]p13='
$hLabel[5][1] = '[mm]p14='
$hLabel[6][1] = '[mm]p15='
$hLabel[7][1] = '[mm]p16='
$hLabel[8][1] = '[mm]p17='

For $i = 0 To 8
    $sInput_Val = StringRegExpReplace(FileReadLine(@ScriptDir & '\file.ext', $i + 1), "^.*=(.*)$", "\1")
    If $sInput_Val = "" Then $sInput_Val = $i

    $hLabel[$i][0] = GUICtrlCreateLabel($sLabel[$i], 10, 10 + $i * 28, 180, 15)
    $hInput[$i] = GUICtrlCreateInput($sInput_Val, 230, 10 + $i * 28, 50, 17, $ES_NUMBER)
Next

GUISetState()

While 1
    $Msg = GUIGetMsg()

    Switch $Msg
        Case $GUI_EVENT_CLOSE
            GUIDelete($hGUI)
            ExitLoop
        Case $hButton
            $hWrite = FileOpen(@ScriptDir & '\file.ext', 2)

            For $i = 0 To 8
                FileWriteLine($hWrite, $hLabel[$i][1] & GUICtrlRead($hInput[$i]))
            Next

            FileClose($hWrite)
    EndSwitch
WEnd

[Pozia]

а выходной файл может иметь вид следующий? »

не, не может. прога ругается на данную строку, или любую другую. Ошибка вроде не критическая, но рисковать мне нельзя (запороть проект 3D не хочу).

длинный, и не совсем понятный для тебя судя по вопросам, код »

если есть лишнее время то можете предложить, но наверное лучше

создание вспомогательного файла, который будет практически дублировать file.ext но с заголовком [settings] »

и пусть скрипт делает его сразу же скрытым чтобы на глазах не моячил

kaster, Вас опередили. Creat0R, все работает как нельзя лучше. Если мне нужно увеличить количество параметров то я меняю:

Код:

$sLabel[9] = 'Диаметр отверстий, do'
.....

Код:

$hLabel[9][1] = '[mm]p17='
....

Код:

For $i = 0 To 9

Код:

For $i = 0 To 9

Код:

Local $hLabel[10][2], $sLabel[10], $hInput[10]

Верно?

[Creat0R]

Верно? »

Да. Но я бы для удобства сделал так:

Код:

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>

$hGUI = GUICreate('I''m a crasy dentist', 300, 350)
$hButton = GUICtrlCreateButton('Create file', 10, 310, 70, 30)

Global $aLabels, $aInput_Vals, $aiInputs, $iCount

$aLabels &= 'Диаметр окружности впадин зубьев, df|'
$aLabels &= 'Делительный диаметр, d|'
$aLabels &= 'Диаметр окружности вершин зубьев, da|'
$aLabels &= 'Ширина, b|'
$aLabels &= 'Диаметр ступицы, dst|'
$aLabels &= 'Длина ступицы, Lst|'
$aLabels &= 'Толщина венца, hv|'
$aLabels &= 'Диаметр расположения отверстий, dro|'
$aLabels &= 'Диаметр отверстий, do|'

$aInput_Vals &= '[mm]p9=|'
$aInput_Vals &= '[mm]p10=|'
$aInput_Vals &= '[mm]p11=|'
$aInput_Vals &= '[mm]p12=|'
$aInput_Vals &= '[mm]p13=|'
$aInput_Vals &= '[mm]p14=|'
$aInput_Vals &= '[mm]p15=|'
$aInput_Vals &= '[mm]p16=|'
$aInput_Vals &= '[mm]p17=|'

$aLabels = StringRegExpReplace($aLabels, '\|$', '')
$aLabels = StringSplit($aLabels, '|')

$aInput_Vals = StringRegExpReplace($aInput_Vals, '\|$', '')
$aInput_Vals = StringSplit($aInput_Vals, '|')

Dim $iCount = $aInput_Vals[0]
Dim $aiInputs[$iCount+1]

For $i = 1 To $iCount
    $sVal = StringRegExpReplace(FileReadLine(@ScriptDir & '\file.ext', $i), "^.*=(.*)$", "\1")
    If $sVal = "" Then $sVal = $i

    GUICtrlCreateLabel($aLabels[$i], 10, 10 + ($i-1) * 28, 180, 15)
    $aiInputs[$i] = GUICtrlCreateInput($sVal, 230, 10 + ($i-1) * 28, 50, 17, $ES_NUMBER)
Next

GUISetState()

While 1
    $Msg = GUIGetMsg()

    Switch $Msg
        Case $GUI_EVENT_CLOSE
            GUIDelete($hGUI)
            ExitLoop
        Case $hButton
            $hWrite = FileOpen(@ScriptDir & '\file.ext', 2)

            For $i = 1 To $iCount
                FileWriteLine($hWrite, $aInput_Vals[$i] & GUICtrlRead($aiInputs[$i]))
            Next

            FileClose($hWrite)
    EndSwitch
WEnd

Добавлять так:

Код:

$aLabels &= 'Диаметр отверстий, do|'
...

Код:

$aInput_Vals &= '[mm]p17=|'
...

[kaster]

Верно? »

да. надо переобъявить массивы и изменить верхний предел циклов