Сохранение и редактирование файла через listbox и textbox - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! я в ступоре, голова дальше не варит... даны 2 textbox, 1 listbox и 3 кнопки. с созданием текстового файла вроде разобрался,а вот как выбрать созданный файл и редактировать его не доходит до меня. по пробовал через массив- ругается. Ребят, я пока очень очень новичок, не серчайте сильно.. скрин прилагается
Листинг программы 
  1.     Public i As Integer
  2.     Dim k As Integer
  3.       Dim n As Integer
  4.     
  5.     Dim mass(1 To 150) As String
  6. Private Sub cmdOtkrF_Click()
  7. Open File1 For Input As #1
  8. Line Input #1, mass(1)
  9. Line Input #1, mass(2)
  10. Line Input #1, mass(3)
  11. Line Input #1, mass(4)
  12. Line Input #1, mass(5)
  13. Line Input #1, mass(6)
  14. Line Input #1, mass(7)
  15. Line Input #1, mass(8)
  16. Line Input #1, mass(9)
  17. Line Input #1, mass(10)
  18. Line Input #1, mass(11)
  19. Line Input #1, mass(12)
  20. Line Input #1, mass(13)
  21. Line Input #1, mass(14)
  22. Line Input #1, mass(15)
  23. Line Input #1, mass(16)
  24. Line Input #1, mass(17)
  25. Line Input #1, mass(18)
  26. Line Input #1, mass(19)
  27. Line Input #1, mass(20)
  28. Line Input #1, mass(21)
  29. Line Input #1, mass(22)
  30. Line Input #1, mass(23)
  31. Line Input #1, mass(24)
  32. Line Input #1, mass(25)
  33. Line Input #1, mass(26)
  34. Line Input #1, mass(27)
  35. Line Input #1, mass(28)
  36. Line Input #1, mass(29)
  37. Line Input #1, mass(30)
  38. Line Input #1, mass(31)
  39. Line Input #1, mass(32)
  40. Line Input #1, mass(33)
  41. Line Input #1, mass(34)
  42. Line Input #1, mass(35)
  43. Line Input #1, mass(36)
  44. Line Input #1, mass(37)
  45. Line Input #1, mass(38)
  46. Line Input #1, mass(39)
  47. Line Input #1, mass(40)
  48. Line Input #1, mass(41)
  49. Line Input #1, mass(42)
  50. Line Input #1, mass(43)
  51. Line Input #1, mass(44)
  52. Line Input #1, mass(45)
  53. Line Input #1, mass(46)
  54. Line Input #1, mass(47)
  55. Line Input #1, mass(48)
  56. Line Input #1, mass(49)
  57. Line Input #1, mass(50)
  58. Line Input #1, mass(51)
  59. Line Input #1, mass(52)
  60. Line Input #1, mass(53)
  61. Line Input #1, mass(54)
  62. Line Input #1, mass(55)
  63. Line Input #1, mass(56)
  64. Line Input #1, mass(57)
  65. Line Input #1, mass(58)
  66. Line Input #1, mass(59)
  67. Line Input #1, mass(60)
  68. Line Input #1, mass(61)
  69. Line Input #1, mass(62)
  70. Line Input #1, mass(63)
  71. Line Input #1, mass(64)
  72. Line Input #1, mass(65)
  73. Line Input #1, mass(66)
  74. Line Input #1, mass(67)
  75. Line Input #1, mass(68)
  76. Line Input #1, mass(69)
  77. Line Input #1, mass(70)
  78. Line Input #1, mass(71)
  79. Line Input #1, mass(72)
  80. Line Input #1, mass(73)
  81. Line Input #1, mass(74)
  82. Line Input #1, mass(75)
  83. Line Input #1, mass(76)
  84. Line Input #1, mass(77)
  85. Line Input #1, mass(78)
  86. Line Input #1, mass(79)
  87. Line Input #1, mass(80)
  88. Line Input #1, mass(81)
  89. Line Input #1, mass(82)
  90. Line Input #1, mass(83)
  91. Line Input #1, mass(84)
  92. Line Input #1, mass(85)
  93. Line Input #1, mass(86)
  94. Line Input #1, mass(87)
  95. Line Input #1, mass(88)
  96. Line Input #1, mass(89)
  97. Line Input #1, mass(90)
  98. Line Input #1, mass(91)
  99. Line Input #1, mass(92)
  100. Line Input #1, mass(93)
  101. Line Input #1, mass(94)
  102. Line Input #1, mass(95)
  103. Line Input #1, mass(96)
  104. Line Input #1, mass(97)
  105. Line Input #1, mass(98)
  106. Line Input #1, mass(99)
  107. Line Input #1, mass(100)
  108. Line Input #1, mass(101)
  109. Line Input #1, mass(102)
  110. Line Input #1, mass(103)
  111. Line Input #1, mass(104)
  112. Line Input #1, mass(105)
  113. Line Input #1, mass(106)
  114. Line Input #1, mass(107)
  115. Line Input #1, mass(108)
  116. Line Input #1, mass(109)
  117. Line Input #1, mass(110)
  118. Line Input #1, mass(111)
  119. Line Input #1, mass(112)
  120. Line Input #1, mass(113)
  121. Line Input #1, mass(114)
  122. Line Input #1, mass(115)
  123. Line Input #1, mass(116)
  124. Line Input #1, mass(117)
  125. Line Input #1, mass(118)
  126. Line Input #1, mass(119)
  127. Line Input #1, mass(120)
  128. Line Input #1, mass(121)
  129. Line Input #1, mass(122)
  130. Line Input #1, mass(123)
  131. Line Input #1, mass(124)
  132. Line Input #1, mass(125)
  133. Line Input #1, mass(126)
  134. Line Input #1, mass(127)
  135. Line Input #1, mass(128)
  136. Line Input #1, mass(129)
  137. Line Input #1, mass(130)
  138. Line Input #1, mass(131)
  139. Line Input #1, mass(132)
  140. Line Input #1, mass(150)
  141. Close #1
  142.  
  143. End Sub
  144.  
  145. Private Sub cmdSoxrF_Click()
  146. i = i + 1
  147. mass(150) = i
  148. Open File1 For Output As #1
  149.  
  150.                         Print #1, mass(1)
  151.                         Print #1, mass(2)
  152.                         Print #1, mass(3)
  153.                         Print #1, mass(4)
  154.                         Print #1, mass(5)
  155.                         Print #1, mass(6)
  156.                         Print #1, mass(7)
  157.                         Print #1, mass(8)
  158.                         Print #1, mass(9)
  159.                         Print #1, mass(10)
  160.                         Print #1, mass(11)
  161.                         Print #1, mass(12)
  162.                         Print #1, mass(13)
  163.                         Print #1, mass(14)
  164.                         Print #1, mass(15)
  165.                         Print #1, mass(16)
  166.                         Print #1, mass(17)
  167.                         Print #1, mass(18)
  168.                         Print #1, mass(19)
  169.                         Print #1, mass(20)
  170.                         Print #1, mass(21)
  171.                         Print #1, mass(22)
  172.                         Print #1, mass(23)
  173.                         Print #1, mass(24)
  174.                         Print #1, mass(25)
  175.                         Print #1, mass(26)
  176.                         Print #1, mass(27)
  177.                         Print #1, mass(28)
  178.                         Print #1, mass(29)
  179.                         Print #1, mass(30)
  180.                         Print #1, mass(31)
  181.                         Print #1, mass(32)
  182.                         Print #1, mass(33)
  183.                         Print #1, mass(34)
  184.                         Print #1, mass(35)
  185.                         Print #1, mass(36)
  186.                         Print #1, mass(37)
  187.                         Print #1, mass(38)
  188.                         Print #1, mass(39)
  189.                         Print #1, mass(40)
  190.                         Print #1, mass(41)
  191.                         Print #1, mass(42)
  192.                         Print #1, mass(43)
  193.                         Print #1, mass(44)
  194.                         Print #1, mass(45)
  195.                         Print #1, mass(46)
  196.                         Print #1, mass(47)
  197.                         Print #1, mass(48)
  198.                         Print #1, mass(49)
  199.                         Print #1, mass(50)
  200.                         Print #1, mass(51)
  201.                         Print #1, mass(52)
  202.                         Print #1, mass(53)
  203.                         Print #1, mass(54)
  204.                         Print #1, mass(55)
  205.                         Print #1, mass(56)
  206.                         Print #1, mass(57)
  207.                         Print #1, mass(58)
  208.                         Print #1, mass(59)
  209.                         Print #1, mass(60)
  210.                         Print #1, mass(61)
  211.                         Print #1, mass(62)
  212.                         Print #1, mass(63)
  213.                         Print #1, mass(64)
  214.                         Print #1, mass(65)
  215.                         Print #1, mass(66)
  216.                         Print #1, mass(67)
  217.                         Print #1, mass(68)
  218.                         Print #1, mass(69)
  219.                         Print #1, mass(70)
  220.                         Print #1, mass(71)
  221.                         Print #1, mass(72)
  222.                         Print #1, mass(73)
  223.                         Print #1, mass(74)
  224.                         Print #1, mass(75)
  225.                         Print #1, mass(76)
  226.                         Print #1, mass(77)
  227.                         Print #1, mass(78)
  228.                         Print #1, mass(79)
  229.                         Print #1, mass(80)
  230.                         Print #1, mass(81)
  231.                         Print #1, mass(82)
  232.                         Print #1, mass(83)
  233.                         Print #1, mass(84)
  234.                         Print #1, mass(85)
  235.                         Print #1, mass(86)
  236.                         Print #1, mass(87)
  237.                         Print #1, mass(88)
  238.                         Print #1, mass(89)
  239.                         Print #1, mass(90)
  240.                         Print #1, mass(91)
  241.                         Print #1, mass(92)
  242.                         Print #1, mass(93)
  243.                         Print #1, mass(94)
  244.                         Print #1, mass(95)
  245.                         Print #1, mass(96)
  246.                         Print #1, mass(97)
  247.                         Print #1, mass(98)
  248.                         Print #1, mass(99)
  249.                         Print #1, mass(100)
  250.                         Print #1, mass(101)
  251.                         Print #1, mass(102)
  252.                         Print #1, mass(103)
  253.                         Print #1, mass(104)
  254.                         Print #1, mass(105)
  255.                         Print #1, mass(106)
  256.                         Print #1, mass(107)
  257.                         Print #1, mass(108)
  258.                         Print #1, mass(109)
  259.                         Print #1, mass(110)
  260.                         Print #1, mass(111)
  261.                         Print #1, mass(112)
  262.                         Print #1, mass(113)
  263.                         Print #1, mass(114)
  264.                         Print #1, mass(115)
  265.                         Print #1, mass(116)
  266.                         Print #1, mass(117)
  267.                         Print #1, mass(118)
  268.                         Print #1, mass(119)
  269.                         Print #1, mass(120)
  270.                         Print #1, mass(121)
  271.                         Print #1, mass(122)
  272.                         Print #1, mass(123)
  273.                         Print #1, mass(124)
  274.                         Print #1, mass(125)
  275.                         Print #1, mass(126)
  276.                         Print #1, mass(127)
  277.                         Print #1, mass(128)
  278.                         Print #1, mass(129)
  279.                         Print #1, mass(130)
  280.                         Print #1, mass(131)
  281.                         Print #1, mass(132)
  282.                         Print #1, mass(150)
  283.  
  284.  Close #1
  285.  
  286. End Sub
  287.  
  288. Private Sub cmdSozdF_Click()
  289. Open txt2 + ".txt" For Output As #1
  290.   Close #1
  291.   txt2.Text = ""
  292.  
  293. End Sub
  294.  
  295. Private Sub File1_Click()
  296. k = 0
  297. n = 0
  298.  Text1 = k
  299. End Sub
  300.  
  301. Private Sub Form_Load()
  302. ChDir "C:\Users\Комп\Desktop\RUS\темы"
  303. End Sub
  304.  
  305. Private Sub lblTip_Click()
  306.  
  307. End Sub

Решение задачи: «Сохранение и редактирование файла через listbox и textbox»

textual
Листинг программы 
  1. Private Sub cmdOtkrF_Click()
  2. Open "C:\WINDOWS\system32\eula.txt" For Input As #1
  3. txtVvodVoprosa = Input(LOF(1), #1)
  4. Close #1
  5. End Sub
  6.  
  7. Private Sub cmdSoxrF_Click()
  8. Open "C:\WINDOWS\system32\eula.txt" For Output As #1
  9. Print #1, txtVvodVoprosa
  10. Close #1
  11. End Sub

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут