Advertisement
anatolt

del-str-1.0

Jan 26th, 2015
425
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; удалялка строк версия 1.0
  2. OpenWindow(0,100,100,520,280,"Удалялка строк",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  3. Enumeration
  4.   #pole1
  5.   #pole2
  6.   #button
  7.   #str
  8. EndEnumeration
  9. EditorGadget(#pole1, 10, 40, 190, 230)
  10. For l=1 To 20
  11.   txt$ = Str(l)
  12.   AddGadgetItem(#pole1,-1,txt$)  
  13. Next
  14. EditorGadget(#pole2, 330, 40, 190, 230)
  15. ButtonGadget(#button, 210, 190, 100, 25, "Тыдыщ")
  16. TextGadget(#PB_Any, 210, 40, 120, 20, "Удалить каждые")
  17. StringGadget(#str, 210, 70, 100, 25, "3")
  18. TextGadget(#PB_Any, 210, 100, 120, 20, "строки из поля 1")
  19. TextGadget(#PB_Any, 10, 10, 100, 25, "Поле 1")
  20. TextGadget(#PB_Any, 320, 10, 100, 25, "Поле 2")
  21. Repeat
  22.   ev = WaitWindowEvent()
  23.   Select ev
  24.     Case #PB_Event_Gadget
  25.       Select EventGadget()
  26.         Case #button
  27.           Select EventType()
  28.             Case #PB_EventType_LeftClick
  29.               ClearGadgetItems(#pole2)
  30.               i = 1 + Val(GetGadgetText(#str))
  31.               m = CountGadgetItems(#pole1)
  32.               For k=0 To m
  33.                 If (k + i)%i=0
  34.                   stay$ = GetGadgetItemText(#pole1,k)
  35.                   AddGadgetItem(#pole2,-1,stay$)
  36.                 EndIf
  37.               Next
  38.           EndSelect
  39.       EndSelect
  40.   EndSelect
  41. Until ev = #PB_Event_CloseWindow
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement