Форум программистов, компьютерный форум, киберфорум Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 11.09.2011
Сообщений: 29
1

Нужно из файла удалить все отрицательные элементы

25.09.2011, 19:40. Показов 2020. Ответов 22
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
нужно из файла удалить все отрицательные элементы затрудняюсь именно с этим. точнее читал что можно через ArrayList но не знаю как оформить.
VB.NETВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Public Class Form1
    Dim fname, s, r As String
    Dim i, n As Integer
    Dim mas(100) As Double
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        s = ""
        fname = InputBox("Введите путь+название файла, который хотите создать например с:\123.txt")
        n = InputBox("Введите N")
        For i = 1 To n
            mas(i) = InputBox("Введите компонент")
            s = s + Str(mas(i)) + " "
        Next
        System.IO.File.WriteAllText(fname, s)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If System.IO.File.Exists(fname) = True Then
            s = System.IO.File.ReadAllText(fname)
            TextBox1.Text = s
        Else : MsgBox("Файл не существует")
        End If
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox2.Text = ""
        s = ""
        If System.IO.File.Exists(fname) = True Then
            For i = 1 To n
                If mas(i) < 0 Then mas(i) = mas(i) 'что сюда нужно дописать?
                s = s + Str(mas(i)) + " "
            Next
        Else : MsgBox("Файл не существует")
        End If
        System.IO.File.Delete(fname)
        System.IO.File.WriteAllText(fname, s)
        MsgBox("Файл успешно обработан")
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If System.IO.File.Exists(fname) = True Then
            s = System.IO.File.ReadAllText(fname)
            TextBox2.Text = s
        Else : MsgBox("Файл не существует")
        End If
    End Sub
End Class
Добавлено через 1 час 10 минут
VB.NETВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox2.Text = ""
        s = ""
        If System.IO.File.Exists(fname) = True Then
            For i = 1 To n
                If mas(i) > 0 Then
                    mas2(j) = mas(i)
                End If
                s = s + Str(mas2(j)) + " "
            Next
        Else : MsgBox("Файл не существует")
        End If
        System.IO.File.Delete(fname)
        System.IO.File.WriteAllText(fname, s)
        MsgBox("Файл успешно обработан")
    End Sub
если задействовать 2 массив то вместо отрицательных чисел будут ноли а как их убрать вообще? тоесть оформить сдвиги массива?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.09.2011, 19:40
Ответы с готовыми решениями:

Отрицательные элементы очереди удалить, а все элементы отрезка [0; 10] продублировать
Создать однонаправленную очередь целых чисел. Распечатать. Отрицательные удалить, а все элементы...

Удалить все отрицательные элементы
#include &lt;iostream&gt; using namespace std; int main() { int i=0, g=0, j=0, n=0; int arr;...

Удалить все отрицательные элементы
Дан одномерный массив.Удалить все отрицательные элементы.

если массив не является знакочередующимся,то удалить из массива все положительные числа,в противном случае-удалить отрицательные элементы.после удален
задан массив Х целых чисел. если массив не является знакочередующимся,то удалить из массива все...

22
0 / 0 / 0
Регистрация: 11.09.2011
Сообщений: 29
02.10.2011, 18:46  [ТС] 21
Author24 — интернет-сервис помощи студентам
и ещё 1 вопрос по поводу программы, не удается вывести массив в textbox c этого куска
VB.NETВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
   Dim OFD As New OpenFileDialog With {.Title = "Выберите файл с массивом"}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim SFD As New SaveFileDialog With {.Title = "куда сохранить?", .FileName = "обработанный.txt"}
            If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then
                Try
                    Dim Out As String = ""
                    Dim Source As String = IO.File.ReadAllText(OFD.FileName)
                    ''Source.Replace("  ", " ") : Source.Replace("   ", " ") 'На всякий случай
                    Dim Mass() As String = Source.Split(" ")
                    For Each El As String In Mass
                        If Val(El) > 0 Then
                            Out &= El & " "
                        End If
                    Next
                    IO.File.WriteAllText(SFD.FileName, Out)
 
                    MsgBox("файл успешно обработан", MsgBoxStyle.Information)
                Catch ex As Exception
                    MsgBox("Файл не существует", MsgBoxStyle.Critical)
                End Try
            End If
        End If
0
Почетный модератор
21415 / 9150 / 1083
Регистрация: 11.04.2010
Сообщений: 11,014
02.10.2011, 19:06 22
Там где
VB.NETВыделить код
1
Out &= El & " "
Добавь еще
VB.NETВыделить код
1
TextBox1.Text &= El & " "
Или что?
0
0 / 0 / 0
Регистрация: 11.09.2011
Сообщений: 29
02.10.2011, 19:09  [ТС] 23
ступил жестко!!! извиняюсь за тупой вопрос!
0
02.10.2011, 19:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.10.2011, 19:09
Помогаю со студенческими работами здесь

Удалить из файла отрицательные элементы
Дан файл целых чисел.Удалить из него отрицательные элементы собственно делаю 2мя...

Удалить все отрицательные элементы массива
У меня есть динамический масив... Как удалить все отрицательние елементи? if(mass&lt;0) а дальше?

Удалить все отрицательные элементы из массива
Помогите пожалуйста!!! 1 Нужно удалить все отрицательные элементы из массива(любово одномерного...

Удалить все отрицательные элементы массива
Массив из 10 элементов заполнен случайными числами от -10 до 10. Удалить все отрицательные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
23
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru