VPF::1000 мелочей - Форум программистов

diadiavova

Дата 9.6.2010, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

В этой теме задаём всевозможные мелкие вопросы, ради решения которых не стоит создавать отдельную тему. Очень часто бывает, что подобные вопросы кидают вдогонку в другуи етемы, в которых обсуждаются другие вопросы. Это нарушает одно из правил форума "Один топик - один вопрос". Поэтому если вы считаете, что вашь вопрос может быть решён быстро и не стоит ради него создавать отдельную тему - добро пожаловать сюда.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

AChrist

Дата 17.6.2010, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.6.2010

Репутация: нет
Всего: нет

Код


        Dim tb4 As New DataTable 'временная таблица для выбора 
        tb4.Columns.Add("prefix", GetType(Long))
        tb4.Columns.Add("number", GetType(Long))
        Dim temprow As Integer

        temprow = 0

        For f = 0 To tb3.Rows.Count()

            If tb2.Rows(0).Item(1) = tb3.Rows(f).Item(2) Then
                'tut perenos nado
                tb4.Rows(temprow).Item(0) = tb3.Rows(f).Item(0) 'копируем префикс
                tb4.Rows(temprow).Item(1) = tb3.Rows(f).Item(1) 'копируем номер
                temprow = temprow + 1

            End If


        Next f

Помогите записать все содержимое tb4 datatable в файл txt. Пробовал поиск но оказалось сложно для моего понимания.
И есть какой-то способ зачистить datatable чтоб она была пуста? мне для цикла надо...

diadiavova

Дата 17.6.2010, 17:46 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Цитата(AChrist @ 17.6.2010, 18:40

)

И есть какой-то способ зачистить datatable чтоб она была пуста?

System.Data.DataTable.Clear()

Цитата(AChrist @ 17.6.2010, 18:40

)

If tb2.Rows(0).Item(1) = tb3.Rows(f).Item(2)

У тебя это условие не выполнится никогда из-за того, что индексация с нуля начинается и при двух столбцах столбца с индексом 2 быть просто не может.

А вообще для сохранения таблицы используй метод WriteXml.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

Natapro

Дата 1.7.2010, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет

http://forum.vingrad.ru/forum/topic-300497/15.html
в файле есть текст
Chast1:Chast2
как разделить его что б часть 1 ишла в текстбокс1 а часть 2 в текстбокс 2 их ведь роделяет ":"
весь текст записан в столбчик...

--------------------

Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...

Exai1e

Дата 1.7.2010, 10:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: нет
Всего: 30

Natapro,

Код


            string[] srcString = File.ReadAllLines(@"C:\some1.txt");

            foreach (string currentString in srcString)
            {
                int sepIndex = currentString.IndexOf(':');
                string partOne = currentString.Substring(0, sepIndex);
                string partTwo = currentString.Substring(++sepIndex, currentString.Length - sepIndex);
            }

упс не заметил что тема в разделе VB, извиняюсь

Это сообщение отредактировал(а) Exai1e - 1.7.2010, 10:33

--------------------

"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"

diadiavova

Дата 1.7.2010, 10:37 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Natapro,
http://msdn.microsoft.com/ru-ru/library/sy...ring.split.aspx

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

Natapro

Дата 1.7.2010, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет

не нашла там.. (( помоги пожалуйста

--------------------

Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...

diadiavova

Дата 1.7.2010, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

А чо там искать? первый же метод

Код


Dim s = "Chast1:Chast2"
Dim sa = s.Split(":"c)
MsgBox(sa(0))
MsgBox(sa(1))

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

Natapro

Дата 1.7.2010, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 460
Регистрация: 13.9.2009
Где: Украина

Репутация: нет
Всего: нет

0-1 это до и после : да ?

--------------------

Красивая девушка не может быть глупой.Умная девушка не позволит себе быть некрасивой...

Exai1e

Дата 1.7.2010, 18:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: нет
Всего: 30

Natapro, да

--------------------

"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"

diadiavova

Дата 1.7.2010, 18:10 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Цитата(Natapro @ 1.7.2010, 19:06

)

0-1 это до и после : да ?

У тебя получается массив строк, в элементах которого будет все, что между сепараторами.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

AChrist

Дата 5.8.2010, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.6.2010

Репутация: нет
Всего: нет

К сожалению не понимаю этого метода WriteXML...

Код


<?xml version="1.0" standalone="yes"?>
<DocumentElement />

Вот что получаю когда хочу всю таблицу в файл скинуть.

Код





 Dim temprow, x As Integer

        For x = 0 To tb2.Rows.Count - 1

            For f = 0 To tb3.Rows.Count() - 1

                If tb2.Rows(x).Item(2).ToString = tb3.Rows(f).Item(2).ToString Then
                    'тут запись из списка всех номеров только этого региона во временную таблицу
                    tb4.Rows(temprow).Item(0) = tb3.Rows(f).Item(0) 'копируем префикс
                    tb4.Rows(temprow).Item(1) = tb3.Rows(f).Item(1) 'копируем номер

                End If
                temprow = temprow + 1
            Next f

        Next x
        tb4.WriteXml("C:\1.txt")

И вообще может я совсем неправильно создавал таблицы?

Код


Public Class Form1
    Public Dim tb2 As New DataTable("tab2")
    Public tb1 As New DataTable("location")
    Public tb3 As New DataTable("persons")
    Public tb4 As New DataTable("temptab") 

tb2.Columns.Add("col1", GetType(String)) 
        tb2.Columns.Add("col2", GetType(Integer)) 
        tb2.Columns.Add("col3", GetType(Integer))
        tb1.Columns.Add("col1", GetType(String))
        tb1.Columns.Add("col2", GetType(Integer))
        tb1.Columns.Add("col3", GetType(Integer))
        tb3.Columns.Add("prefix", GetType(Long))
        tb3.Columns.Add("phone", GetType(Long))
        tb3.Columns.Add("locationid", GetType(Integer))
        tb4.Columns.Add("prefix", GetType(Long))
        tb4.Columns.Add("number", GetType(Long))

Вот так я создаю таблицы в которых держу данные.

Помогите пожалуйста сохранить таблицу tb4 в обычном txt файле. Файл в идеале должен получится tb4 столбик 1 + "-" + tb4 столбик 2 + "\n"

Это сообщение отредактировал(а) AChrist - 5.8.2010, 14:41

diadiavova

Дата 5.8.2010, 15:01 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

AChrist, а почему ты не используешь базы данных? Ведь это все делается с помощью простейших запросов?

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

AChrist

Дата 5.8.2010, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.6.2010

Репутация: нет
Всего: нет

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

я совсем начинающий в этом деле, уж простите smile

...

diadiavova

Дата 5.8.2010, 18:01 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

AChrist, тогда объясни словами, что у тебя там и с чем пересекается, потому что, судя по всему таблица у тебя не заполняется.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »