[gregaz]

Код: ControlHide("Test", "", "SysListView321") »

Понял,спасибо

[Angelus]

Maza Faka, не подскажеш как ты решил проблему с проигрованием звука??...а то я пытаюсь запустить какой то файл через _SoundPlay, файл то проигрывается но звук отсутствует....

Код:

#include <Sound.au3>

$s = _SoundOpen ( 'D:\cd\Dwarf.wma' )
$sound = _SoundPlay ( $s, 1 )
MsgBox ( 64, '', $s )
MsgBox ( 64, '', $sound )

Первый мсбокс выдает набор символо, что как я понимаю означет успешное выполнение, второй тоже выдает 1, вроде ошибок нет, но и звука тож нет....

[Maza Faka]

Angelus
Привет! Когда-то я начал писать аудио плеер, но потом забросил этот проект. Почему-то некоторые файлы не проигрывались, начал копать, обнаружил, что иногда, если в пути к файлу имеются пробелы, то файл не проигрывается, но, что самое странное, если я удалял папку и создавал её снова с тем же именем, то файл проигрывался без проблем. Просмотрел библиотеку Sound.au3 и как я понял проблемы возникают при получении короткого имени (8.3) файла функцией FileGetShortName(). Проблему так и не поборол . Но если ты найдёшь решение стукни мне.

[Senka11]

PHP код:

#include <GUIConstants.au3>



GUICreate("Computer ID system;) created by Senka!;)", 320, 200)

GUICtrlCreateLabel("Input Computer ID", 110, 10)

$okbutton = GUICtrlCreateButton("Ready", 110, 120, 60)

GUISetState(@SW_SHOW)

$nEdit = GUICtrlCreateInput ("inventory no.", -1,3,175,20)

$nEdit = GUICtrlCreateInput ("Everest no.", -1,30,175,20)



While 1

  $msg = GUIGetMsg()

Select

Case $msg = $okbutton

          MsgBox(0, "11", "You pressed OK!")

    Case $msg = $GUI_EVENT_CLOSE

      MsgBox(0, "GUI Event", "You clicked CLOSE! Exiting...")

      ExitLoop

  EndSelect

WEnd 

Ребята выручайте кто знает!!!! мне нужно чтоб информация которая вбивается в ети два поля после нажатия на кнопку ОК сохранялась в /txt файлик!!!!!!!!!


Зараннеее оч признателен!!!!!!

[HORRIBLE]

Senka11,

#include <GUIConstants.au3>

GUICreate("Computer ID system created by Senka!", 320, 200)
GUICtrlCreateLabel("Input Computer ID", 10, 10)
$okbutton = GUICtrlCreateButton("Ready", 110, 120, 60)
$nEdit = GUICtrlCreateInput ("inventory no.", -1,3,175,20)
$aEdit = GUICtrlCreateInput ("Everest no.", -1,30,175,20)
GUISetState ()

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "GUI Event", "You clicked CLOSE! Exiting...")
exit

Case $msg = $okbutton
MsgBox(0, "11", "You pressed OK!")
filewrite(FileOpen("Data.txt",1),"Data from $nEdit: " & $nEdit &@CRLF& "Data from $aEdit: "& $NEdit & @CRLF)

EndSelect
WEnd



Можно ли как нить сделать так, что при добавлениии информации в файл, как допустим в filewrite(FileOpen("Data.txt",1),"Data from $nEdit: " & $nEdit &@CRLF& "Data from $aEdit: "& $NEdit & @CRLF), можно было бы увидить информацию которая записалась в файл не прибегая к закрытию всей программы, а только потом после закрытия открывать файл куда записалась информация?
Тут же если использовать в FileOpen("Data.txt",4) вместо 1, 4 или любую другую цифру то вооще у меня фал даже не создается, в чем может быть проблема?

Есть вордовский файл, в нем записи, каждая новая запись начинается с числа, т.е. там 1. бла бла, следующая строка: 2. аха ха .........., как сделать поиск по этому номеру, номер нужно вводить в Input.

Спасибо.

[Creat0R]

HORRIBLE,

filewrite(FileOpen("Data.txt",1),....

Это не корректно... нужно потом закрывать хендл (FileClose(Handle)).

Можно ли как нить сделать так, что при добавлениии информации в файл, как допустим в filewrite(FileOpen("Data.txt",1),"Data from $nEdit: " & $nEdit &@CRLF& "Data from $aEdit: "& $NEdit & @CRLF), можно было бы увидить информацию которая записалась в файл не прибегая к закрытию всей программы, а только потом после закрытия открывать файл куда записалась информация?

Не удалось понять вопрос - отобразить данные можно не закрывая программу, просто выводим MsgBox(64, "", FileRead("Data.txt")).

в чем может быть проблема?

В том что 4 это флаг для чтения файла, не записи, читаем справку для этой функции

как сделать поиск по этому номеру

Если я правильно понял....

Код:

$Number = 4
$sRead_Doc = FileRead(@ScriptDir & "\My_File.doc")

$aRead_Doc = StringSplit($sRead_Doc, @CRLF)

For $i = 1 To UBound($aRead_Doc)-1
    If StringRegExp($aRead_Doc[$i], "\A(" & $Number & ").*$") Then
        MsgBox(64, "Found", _
            StringFormat("Numer <%d> found at the line [%d], and the founded string line is:\n\n%s", $Number, $i, $aRead_Doc[$i]))
    EndIf
Next

[Angelus]

Maza Faka, та прикол в том что файл то проигрывается...сообщения выскакиваю по истичении окончания файла (например файл длится 7сек, через 7сек сообщение и выскакивает), звук просто при этом отсутсвует....Пробывал проиграть звуки винды C:\windows\media\...так там только одна миди проиграла и wav из всех файлов......вообщем как я понял с этим пока лучше не связовать...мож в следующих версиях каданить исправят....

[Creat0R]

Angelus,

вообщем как я понял с этим пока лучше не связовать...мож в следующих версиях каданить исправят....

У меня всё отлично работает, это видимо что то в системе/файле...
И кстати, они не исправят (если и вправду есть проблема) если им об этом не сообщить

P.S
Можешь залить проблемный файл, попробую у себя запустить.
И какую кстати версию AutoIt'а юзаешь?

[Maza Faka]

Angelus
Проблемный аудио-файл в студию!

[Angelus]

Проблемных аудио файлов нет))))....в обычных проигрывателях звук есть...версия 3.2.10.....мож глюк винды....