Путь и не самый оптимальный вариант, но вполне рабочий

Procedure ListIcon_OpenFile(Gadget, File.s)
 If ReadFile(4,File)
   While Eof(4) = 0 
     String.s=ReadString(4)
     String=ReplaceString(String,Chr(9),Chr(10))
     AddGadgetItem(Gadget, -1, String)
   Wend
   CloseFile(4)
 Else
   MessageRequester("", "Не удалось открыть файл!", #MB_OK|#MB_ICONERROR)
 EndIf
EndProcedure

Procedure ListIcon_SaveFile(Gadget, File.s)
 If CreateFile(4,File)
   CountItems = CountGadgetItems(Gadget) - 1
   For i=0 To CountItems
     String.s=""
     For z=0 To 3 ; Число колонок
       String+GetGadgetItemText(Gadget,i,z)+Chr(9)
     Next z
     WriteStringN(4,String)
   Next i
   CloseFile(4)
 Else
   MessageRequester("", "Не удалось создать файл!", #MB_OK|#MB_ICONERROR)
 EndIf
EndProcedure


If OpenWindow(0, 100, 100, 300, 150, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   ListIconGadget(0, 5, 50, 290, 90, "1", 50, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines)
   AddGadgetColumn(0, 1, "2", 50)
   AddGadgetColumn(0, 2, "3", 50)
   AddGadgetColumn(0, 3, "4", 50)
   AddGadgetItem(0, -1, "1") 
   AddGadgetItem(0, -1, "2") 
   
   SetGadgetItemText(0,0,"3",1)
   SetGadgetItemText(0,1,"4",1)
   
   SetGadgetItemText(0,0,"5",2)
   SetGadgetItemText(0,1,"6",2)
   
   SetGadgetItemText(0,0,"7",3)
   SetGadgetItemText(0,1,"8",3)
   
   ButtonGadget(1,10,10,100,24,"Открыть")
   ButtonGadget(2,150,10,100,24,"Сохранить")
   Repeat
     Event = WaitWindowEvent()
     
     If Event = #PB_Event_Gadget
       Select EventGadget()
         Case 1
           File.s=OpenFileRequester("","","Text (*.txt)|*.txt",0)
           If File
             ClearGadgetItems(0)
             ListIcon_OpenFile(0, File)
           EndIf
           
         Case 2
           File.s=SaveFileRequester("","1.txt","Text (*.txt)|*.txt",0)
           If File
             ListIcon_SaveFile(0, File)
           EndIf
           
       EndSelect
     EndIf
     
   Until Event = #PB_Event_CloseWindow
 EndIf

Кажется уже обсуждали это.
Создаём из HTML, веб-архивы и пишем программу, наподобие этой http://pure-basic.narod.ru/docs/e_book.html

Слова можно предварительно поместить в массив, загружать из файла или ДатаСекции.
Всё зависит от конкретной задачи.

К примеру, загрузка слов из ДатаСекции

If OpenWindow(0, 0, 0, 270, 50, "ComboBoxGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ComboBoxGadget(0, 10, 10, 250, 22)
      Restore Spisok
      For i=1 To 4
        Read.s String.s
        AddGadgetItem(0,-1,String)
      Next i

    SetGadgetState(0, 0)    ; set (beginning with 0) the third item as active one
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf
  End
  
DataSection
 Spisok:
 Data.s "Начало списка", "Слово", "Ещё слово", "Конец списка"
EndDataSection

Здравствуйте!

Решил тоже занятся програмированием, до этого занимался только сайтостроением в Html языке.

Я пока новичек, но стараюсь учится быстрее.
Выбрал пока этот язык  PureBasic, потому как на нем легче учится, чем на С и Паскале

Меня интересуют пока некоторые шаблоны, тэги и гаджеты создания программ

Вот как будет создать окно с менюшкой ввода ссылков сайтов и других интернет ресурсов?

потом кликать или скачивать их автоматом

Например
И чтобы прога сама нажимала автоматом на ссылки,  с переходами c одного сайта  на ссылк depositfiles сайта depositfiles.com , чтобы можно было скачать фаил , ибо там засчитывается скаченный фаил не прямым вводом на ссылк фаила депозита, а переходом с одного сайта на депозит и потом только нажатием кнопки скачать

потом после скачки фаила отрубала выход в интернет , чтобы поменялся динамический ip и вновь автоматом могла скачивать фаилы со
вставленные ссылков,

хочу сделать прогу что то вроде программы downloader ,
видел пару программ в сети но захотелось сделать , что то свое,.

и еще где можно скачать что то вроде азбуки этого языка , чтобы знать значение всех основных функций: гаджетов и тегов и скриптов,  и еще хотелось бы посмотреть коды шаблоны ваших или других программ, если вам не сложно и не секрет.
В качестве примера некоторые проги разной тематики, приложения, игры.

На этом пока все,.
Извиняюсь если что задал много влпросов,..
Но хочу побыстрее все освоить.

Отредактировано Xland (28.06.2010 14:01:45)

Благодарю Друже!

Что подрузомивается под словм "действие"? Выполнение определённого кода при клике по кнопке?

Честно, не понял вопроса.

Это из разряда веб-языков. В прикладном и системном программировании, нет таких понятий.

Что за ошибка? Скриншот можно?

Не совсем понял о чём речь...

Именно так.
Нажать на еще одну добавленную  кнопку.

Чтобы в программке было пять -шесть операций, а не как в шаблонах открыть и закрыть кнопку.

Спасибо , здесь мне подкинули на другом форуме одну "болваночку" , сейчас "обтачиваю ее" и развиваю дальше, переделал ее, убрал пока пару кнопок, и перевел все в автоматический режим.

Но столкнулся с проблемой.

Как html язык, конвертировать в язык pureBasic?   

Есть ли доступные методы и программки?

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

Но как ее выполнить если pureBasic не понимает Html и скриптов?

В частности нужно конвертировать вот этот код скачивания депозит фаила, на сайте депозит хостинга, который отвечает за скачивания фаила

<input type="submit" class="button2" value="Бесплатно"/>

и потом после конвертации вставить его в свою программу

чтобы не человек, а программа автоматом нажала  и скачала фаил.

Пока развиваю свою простенькую прогу, учусь методом проб и ошибок.

Убрал пока две кнопки, чтобы пока попроще было, оставил две c двумя адресными переходами, перевел все в автоматический режим с переходом с одного сайта с задержкой
две секунды на депозит хостинг скачивания фаилов.

Сейчас вот пока работа встала, не знаю как быть с кодом депозита который отвечает за скачивания фаила.

пока роюсь в интернете, читаю литературу, но пока все найдешь и поймешь это долго, и трата драгоценного времени,  хотелось бы вашей помощи.

Up!
Up!