С Новым годом! Форум программистов, компьютерный форум, киберфорум
C# Windows Forms
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 04.03.2020
Сообщений: 11

Зацикливание в do while

04.03.2020, 09:25. Показов 1449. Ответов 19
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, пишу сюда впервые, такая ситуация: есть 2 таблицы эксель, нужно сравнить значения определенной колонки первой таблицы с значениями определенной колонки второй таблицы, при нахождении совпадений поставить + рядом с найденным значением во второй таблице. Усложнение в том что фразы в таблицах могут быть записаны с разными знаками препинания. Сделала разбитие содержимого ячейки на элементы одномерного массива, для второй таблицы так же, а потом просто сравниваем эти элементы. Проблема в том, что когда программа доходит до пустой строки (т.е. таблица закончилась) она должна выйти из цикла, но этого не происходит (при чем именно на второй таблице), на первой все работает. Хотела поправить ситуацию записью значения ячейки в переменную с последующей проверкой, не помогло. Подскажите пожалуйста, в чем дело. Вот код:
C#
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.Reflection;
using ExcelObj = Microsoft.Office.Interop.Excel;
using System.Data.OleDb;
using System.IO;
 
namespace Excel
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        private void button1_Click(object sender, EventArgs e) //выбираем таблицу 1
        {
            OpenFileDialog openEx1 = new OpenFileDialog();
            openEx1.DefaultExt = "*.xls; *.xlsx";
            openEx1.Filter = "Excel 2007-2013(*.xlsx)|*.xlsx|Excel 97-2003(*.xls)|*.xls";
            openEx1.Title = "Выберите таблицу с адресами";
            
            if (openEx1.ShowDialog() == DialogResult.OK)
            {
                textBox1.Text = openEx1.FileName;                
            }
 
        }
        
 
        private void button2_Click(object sender, EventArgs e) //выбираем таблицу 2
        {
            OpenFileDialog openEx2 = new OpenFileDialog();
            if (openEx2.ShowDialog() == DialogResult.OK)
            {
                textBox2.Text = openEx2.FileName;
            }
        }
 
        private void button3_Click(object sender, EventArgs e)
        {
            this.Close();
        }
 
        private void button4_Click(object sender, EventArgs e)
        {
            /*Открываем первую таблицу*/
            Microsoft.Office.Interop.Excel.Application ObjExcel = new Microsoft.Office.Interop.Excel.Application();
            string NameExcel = textBox1.Text;
            Microsoft.Office.Interop.Excel.Workbook ObjWorkBook = ObjExcel.Workbooks.Open(NameExcel, 0, false, 5, "", "", false, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "", true, false, 0, true, false, false);
            Microsoft.Office.Interop.Excel.Worksheet ObjWorkSheet;
            ObjWorkSheet = (Microsoft.Office.Interop.Excel.Worksheet)ObjWorkBook.Sheets[1];
 
            string Address = "A"; //это переменная для проверки
            string[] Line; // это массив для записи слов из ячейки
 
            /*Открываем вторую таблицу*/
            Microsoft.Office.Interop.Excel.Application ObjExcel2 = new Microsoft.Office.Interop.Excel.Application();
            string NameExcel2 = textBox2.Text;
            Microsoft.Office.Interop.Excel.Workbook ObjWorkBook2 = ObjExcel2.Workbooks.Open(NameExcel2, 0, false, 5, "", "", false, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "", true, false, 0, true, false, false);
            Microsoft.Office.Interop.Excel.Worksheet ObjWorkSheet2;
            ObjWorkSheet2 = (Microsoft.Office.Interop.Excel.Worksheet)ObjWorkBook2.Sheets[1];
 
            int Exit; //это переменная-услови для выхода из первого цикла do while
            string[] Line2; //это второй массив
            int a2 = 2; // это счетчик строк таблицы 2
 
            do
            {
                int a = 0; //обнуляем счетчик строк первой таблицы
                string Address2; // переменная для записи ячейки
                a2++;
                Microsoft.Office.Interop.Excel.Range range2 = ObjWorkSheet2.get_Range("AG" + a2.ToString(), "AG" + a2.ToString());
                Address2 = range2.ToString();
 
                /*Если первая колонка пустая то проверяем что написано в 2, 3, 4 и 5*/
                if (Address2 == "") 
                {
                    /*Записываем проверяемые ячейки в элементы массива по отдельности*/
                    Line2 = new string [4];
                    Microsoft.Office.Interop.Excel.Range rangeM = ObjWorkSheet2.get_Range("M" + a2.ToString(), "M" + a2.ToString());
                    Line2[0] = rangeM.ToString();
                    Microsoft.Office.Interop.Excel.Range rangeU = ObjWorkSheet2.get_Range("U" + a2.ToString(), "U" + a2.ToString());
                    Line2[1] = rangeU.ToString();
                    Microsoft.Office.Interop.Excel.Range rangeW = ObjWorkSheet2.get_Range("W" + a2.ToString(), "W" + a2.ToString());
                    Line2[2] = rangeW.ToString();
                    Microsoft.Office.Interop.Excel.Range rangeY = ObjWorkSheet2.get_Range("Y" + a2.ToString(), "Y" + a2.ToString());
                    Line2[3] = rangeY.ToString();
 
                    /*Проверка на пустоту записанных ячеек*/
                    string proverka = Line2[1] + Line2[2] + Line2[3];
                    if (proverka == "")
                    {
                        Exit = 0; //Если все проверенные ячейки пустые - то это является условием для выхода
                    }
                    else
                    {
                        Exit = 1;
                    }
                }
                /*Если колонка 1 не пустая*/
                else 
                {
                    Line2 = Address2.Split(' ');
                    Exit = 1;
                }
                                
                do
                {
                    a++;
                    Microsoft.Office.Interop.Excel.Range range = ObjWorkSheet.get_Range("B" + a.ToString(), "B" + a.ToString());
 
                    /*Здесь аналогично разбиваем слова в ячейке таблицы 1 на массив*/
                    Address = range.Text.ToString();
                    Line = Address.Split(' ');
                   
 
                    /*ОПЕРАЦИИ ПО СРАВНЕНИЮ ЯЧЕЕК*/
                    int CH=0;
                    if (Exit == 1)
                    {
                        for (int i = 0; i < Line2.Length; i++)
                        {
                            for (int j = 0; j < Line.Length; j++)
                            {
                                if (Line2[i] == Line[j])
                                {
                                    CH++; //Если значения массивов совпадают то увеличиваем переменную на 1
                                }
                            }
                            if (CH == 4)
                            {
                                ObjWorkSheet2.Cells["BG" + a2.ToString()].Value = "+";//Если переменная равна 4 (т е 4 слова полностью совпали), то поставить плюсик в колонку справа
                            }
                        }
                    }
 
                    /*отображаем количество обработанных строк на форме*/
                    textBox7.Text = Convert.ToString(a);
                } while (Address != "");
 
                textBox8.Text = Convert.ToString(a2);
 
            } while (Exit != 0);
 
            ObjWorkBook.Close(false);
            ObjExcel.Quit();
 
            ObjExcel2.GetSaveAsFilename(new FileInfo(NameExcel2));
            ObjWorkBook2.Close(false);
            ObjExcel2.Quit();
                       
            MessageBox.Show("Сравнение завершено", "Сообщение", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly);
Я думаю, что проблема в записи в массив значений отдельных ячеек, пробовала менять условие выхода (т.е. Exit != 0), программа отработала 3 строки, хотя в файле их 15. Покажите пожалуйста, в чем дело.

Добавлено через 8 минут
И аналогичная проверка на пустоту в таблице 1 (вложенный цикл do while) работает, программа видит не пустые строки.

Добавлено через 6 минут
Только что вывела в textbox значение переменной Address2, показывает: System.__ComObject

Добавлено через 3 минуты
Сделала вывод переменной Address - там все четко

Добавлено через 2 часа 14 минут
Все, все оказалось до одури просто - забыла прописать в этой строке .Text
C#
1
Address2 = range2.ToString();
Подскажите пожалуйста как из переменной записать значение в ячейку...
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.03.2020, 09:25
Ответы с готовыми решениями:

зацикливание в C++
Подскажите, пожалуйста, как зациклить программу, чтобы при попытке набрать другой символ выдавалось сообщение с ошибкой и происходило...

зацикливание
Есть задание создать прогу тестирования с шифрованием задания, и самим тестом С шифрованиям я справился а вот тесты не выходят при...

Зацикливание
Как то давно видел способ выполнять действие без конечно без while или других ресурсо емких способов. Вобщем кто знает как выполнять код...

19
 Аватар для chumich
2081 / 1239 / 464
Регистрация: 20.12.2014
Сообщений: 3,234
04.03.2020, 19:11
Цитата Сообщение от Madwoman1 Посмотреть сообщение
Подскажите пожалуйста как из переменной записать значение в ячейку...
У Вас в 141 строке кода - запись значения "+" в ячейку. Скопируйте, замените "+" на переменную - и всё.
0
0 / 0 / 0
Регистрация: 04.03.2020
Сообщений: 11
10.03.2020, 12:14  [ТС]
Цитата Сообщение от chumich Посмотреть сообщение
У Вас в 141 строке кода - запись значения "+" в ячейку. Скопируйте, замените "+" на переменную - и всё.
Изменила код следующим образом:
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
int CH=0;
                    string plus = "+";
                    if (Exit == 1)
                    {
                        for (int i = 0; i < Line2.Length; i++)
                        {
                            for (int j = 0; j < Line.Length; j++)
                            {
                                if (Line2[i] == Line[j])
                                {
                                    CH++; 
                                }
                            }
                            if (CH == 4)
                            {
                                ObjWorkSheet2.Cells["BG" + a2.ToString()].Value = plus;
                            }
                        }
                    }
При работе программы получается вот такая ошибка (скрин)
0
0 / 0 / 0
Регистрация: 04.03.2020
Сообщений: 11
10.03.2020, 12:17  [ТС]
Скрин
Миниатюры
Зацикливание в do while  
0
0 / 0 / 0
Регистрация: 04.03.2020
Сообщений: 11
10.03.2020, 12:21  [ТС]
Либо вот такая:
Миниатюры
Зацикливание в do while  
0
 Аватар для chumich
2081 / 1239 / 464
Регистрация: 20.12.2014
Сообщений: 3,234
10.03.2020, 12:45
Если у вас всё равно переменная равна "+", то зачем менять в коде "+" на переменную?
И, если у вас до этого всё работало, то почему вдруг перестало?
Это
C#
1
ObjWorkSheet2.Cells["BG" + a2.ToString()].Value = "+";
и это
C#
1
2
string plus = "+";
ObjWorkSheet2.Cells["BG" + a2.ToString()].Value = plus;
одно и то же.
0
113 / 89 / 26
Регистрация: 11.12.2018
Сообщений: 331
10.03.2020, 13:13
Добавлено через 13 минут
А, все понял! У вас адресация в стиле A1 ... A10 и т.д.
Извиняюсь.
0
0 / 0 / 0
Регистрация: 04.03.2020
Сообщений: 11
10.03.2020, 13:39  [ТС]
Цитата Сообщение от chumich Посмотреть сообщение
И, если у вас до этого всё работало, то почему вдруг перестало?
Я этого не говорила) что все работало...

Добавлено через 29 секунд
Цитата Сообщение от OttoFix Посмотреть сообщение
А, все понял!
Просветите?
Ну пожалуйста...
0
113 / 89 / 26
Регистрация: 11.12.2018
Сообщений: 331
10.03.2020, 13:45
Цитата Сообщение от Madwoman1 Посмотреть сообщение
Просветите?
Это я о своем, не сразу понял, что у вас за странная адресация
C#
1
ObjWorkSheet2.Cells["BG" + a2.ToString()]
Добавлено через 2 минуты
А если так попробовать
C#
1
worksheet.Columns["BG"].Cells[a2.ToString()].Value = plus;
0
0 / 0 / 0
Регистрация: 04.03.2020
Сообщений: 11
10.03.2020, 13:56  [ТС]
Цитата Сообщение от OttoFix Посмотреть сообщение
А если так попробовать
C#
Выделить код
1
worksheet.Columns["BG"].Cells[a2.ToString()].Value = plus;
Ошибок нет, но в ячейку ничего не записывается(
Таблицы отредактированы вручную, специально чтоб протестить программу.
0
113 / 89 / 26
Регистрация: 11.12.2018
Сообщений: 331
10.03.2020, 13:59
Пробуйте вместо переменной указать произвольный текст.
К примеру так
C#
1
ObjWorkSheet2.Columns["BG"].Cells[a2.ToString()].Value = "Тут будет плюс";
1
0 / 0 / 0
Регистрация: 04.03.2020
Сообщений: 11
18.03.2020, 10:54  [ТС]
Цитата Сообщение от OttoFix Посмотреть сообщение
ObjWorkSheet2.Columns["BG"].Cells[a2.ToString()].Value = "Тут будет плюс";
Ошибка ушла, но в файл ничего не записывается.
0
0 / 0 / 0
Регистрация: 04.03.2020
Сообщений: 11
18.03.2020, 11:16  [ТС]
Сделала отдельную кнопочку, чтоб просто проверить работает ли запись в эксель
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
private void button5_Click(object sender, EventArgs e)
        {
            Microsoft.Office.Interop.Excel.Application ObjExcel2 = new Microsoft.Office.Interop.Excel.Application();
            string NameExcel2 = textBox2.Text;
            Microsoft.Office.Interop.Excel.Workbook ObjWorkBook2 = ObjExcel2.Workbooks.Open(NameExcel2, 0, false, 5, "", "", false, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "", true, false, 0, true, false, false);
            Microsoft.Office.Interop.Excel.Worksheet ObjWorkSheet2;
            ObjWorkSheet2 = (Microsoft.Office.Interop.Excel.Worksheet)ObjWorkBook2.Sheets[1];
            for (int i = 0; i < 10; i++)
            { ObjWorkSheet2.Columns["BG"].Cells[i.ToString()].Value = "Тут"; }
 
            ObjExcel2.GetSaveAsFilename(new FileInfo(NameExcel2));
            ObjWorkBook2.Close(false);
            ObjExcel2.Quit();
 
            MessageBox.Show("завершено", "Сообщение", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly);
 
        }
Т е тупо копирнула весь код для второго файла. Получаем ошибку (картинка)
Миниатюры
Зацикливание в do while  
0
113 / 89 / 26
Регистрация: 11.12.2018
Сообщений: 331
18.03.2020, 11:36
Цитата Сообщение от Madwoman1 Посмотреть сообщение
i.ToString()
Думаю ошибка происходит из-за попытки записать в нулевую строку, у вас же i изначально равна 0.
0
0 / 0 / 0
Регистрация: 04.03.2020
Сообщений: 11
20.03.2020, 07:28  [ТС]
Цитата Сообщение от OttoFix Посмотреть сообщение
Думаю ошибка происходит из-за попытки записать в нулевую строку, у вас же i изначально равна 0
Да, с записью разобралась, все работает. Но теперь вернулась старая проблема. Программа не выходит из первого цикла do while. Сделала вывод содержимого переменной Address2 и оказалось что программа не завершает цикл, когда ячейки становятся пустыми, а продолжает перебирать пустые ячейки.
0
113 / 89 / 26
Регистрация: 11.12.2018
Сообщений: 331
20.03.2020, 07:38
Цитата Сообщение от Madwoman1 Посмотреть сообщение
продолжает перебирать пустые ячейки
А ячейки точно пустые? Нужно проверить их на пробелы и прочие непечатаемые символы.
0
0 / 0 / 0
Регистрация: 04.03.2020
Сообщений: 11
20.03.2020, 09:08  [ТС]
Цитата Сообщение от OttoFix Посмотреть сообщение
А ячейки точно пустые?
Да, я вручную отредактировала 2 тестовые таблицы. И зацикливание вроде победила, так:
C#
1
2
3
4
5
6
7
8
for (int i = 1; i < Line2.Length; i++)
                    {
                        if (Line2[i] == "")
                        {
                            Exit = 0;
                            break;
                        }
                    }
Вроде больше пустоту не перебирает. Теперь почему-то неправильно разбивается строка на одномерный массив:
C#
1
Line2 = Address2.Split(' ', ',', '.');
В массив записываются пробелы. Точки и запятые выбрасываются нормально, а вот пробелы почему-то записываются в массив как отдельные элементы (двойных и многократных пробелов в таблице нет, проверила вручную).
0
113 / 89 / 26
Регистрация: 11.12.2018
Сообщений: 331
20.03.2020, 09:22
Цитата Сообщение от Madwoman1 Посмотреть сообщение
пробелы почему-то записываются в массив как отдельные элементы
Проверьте нет ли в строке таких последовательностей - точка, пробел или запятая, пробел (в общем символы разделители идущие друг за другом). Возможно в этом проблема.
0
0 / 0 / 0
Регистрация: 04.03.2020
Сообщений: 11
20.03.2020, 09:55  [ТС]
Цитата Сообщение от OttoFix Посмотреть сообщение
Проверьте нет ли в строке таких последовательностей
Есть, как с этим быть?
0
113 / 89 / 26
Регистрация: 11.12.2018
Сообщений: 331
20.03.2020, 10:46
Цитата Сообщение от Madwoman1 Посмотреть сообщение
ак с этим быть?
Первое, что пришло в голову - это сначала заменить все пробелы к примеру на запятую, потом удалить двойные запятые и уже потом делать Split
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
20.03.2020, 10:46
Помогаю со студенческими работами здесь

Зацикливание
Помогите разобраться while (point &gt;= min &amp;&amp; point &lt;= max || prodal &gt;= min &amp;&amp; prodal &lt;= max) { cin &gt;&gt; point; sobestoimostb = point...

Зацикливание
При выводе стека бесконечный вывод последнего элемента Stack&lt;Command&gt; cmds; Stack&lt;std::string&gt; cmdsNames; ... ...

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

Зацикливание..
нужно найти одинаковые строки в матрице... похоже что в этом куске зацикливание.. n - строки, m - столбцы s:=0; repeat for i:=1...

зацикливание
Не выдает нужного результата происходит зацыкливание // wer.cpp : Defines the entry point for the console application. // ...


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

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru