Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как создать ini файл и записать в него информацию? 
:(
    Опции темы
Feller
Дата 12.8.2011, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Помогите создать програмно ini файл и записать в него информацию вернувшиеся при помощи запроса.

[Acquirer02]
TerminalID      = 90123456 
MerchantID      = 911222333444 
IgnoreHostTime  = 0
AuthHost        = Host1
SettleHost        = Host1
ProtocolName    = SmartVista

эти данные возвращаются при помощи запроса остальные статичные
TerminalID      = 90123456 
MerchantID      = 911222333444 
PM MAIL   Вверх
Feller
Дата 12.8.2011, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Файл я создавать научился, теперь как в него записать нужную мне информацию?
Код

Dim myWriter As StreamWriter



        myWriter = File.CreateText("c:\sample.ini")

        myWriter.WriteLine("test")

        myWriter.Close()
PM MAIL   Вверх
diadiavova
Дата 12.8.2011, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 8
Всего: 142
Вообще-то есть встроенные инструменты для работы с параметрами приложения
http://msdn.microsoft.com/ru-ru/library/a65txexh.aspx
Ну, если уж "кровь с носа" надо с ини-файлами работать, то честно говоря, я не понял в чем проблема. Используй райтлайн для записи строк и и все, ты ведь уже сам разобрался smile 
Код

myWriter.WriteLine("TerminalID      = 90123456")
myWriter.WriteLine("MerchantID      = 911222333444")
myWriter.WriteLine("IgnoreHostTime  = 0")
И так далее.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
Feller
Дата 12.8.2011, 21:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
diadiavova, Да с этим уже разобрался 
Код

''' <summary>
    ''' Создаю и сохраняю ini файл
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub SaveInI(ByVal pTerminal As String, ByVal pMerchant As String)
        Dim myWriter As StreamWriter
        myWriter = File.CreateText("d:\" + pTerminal + ".ini")
        myWriter.WriteLine("TerminalID =" + pTerminal)
        myWriter.WriteLine("MerchantID = " + pMerchant)
        myWriter.WriteLine("IgnoreHostTime  = 0")
        myWriter.WriteLine("IgnoreHostTime  = 0")
        myWriter.WriteLine("Pin3DES         = YES   ; NO = DES / YES = 3DES")
        myWriter.WriteLine("Mac3DES         = YES   ; NO = DES / YES = 3DES")
        myWriter.WriteLine("UseMac            = YES   ; YES / NO")
        myWriter.WriteLine("PinKeyIdx       = 1 ; нечетное число от 1 до 15")
        myWriter.WriteLine("MacKeyIdx       = 3 ; нечетное число от 1 до 15")
        myWriter.WriteLine("PinWKey         = 11111111111111112222222222222222")
        myWriter.WriteLine("MacWKey         = 33333333333333334444444444444444;000102030405060708090a0b0c0d0e0f;")
        myWriter.WriteLine("Currency        = 643, 840")
        myWriter.WriteLine("AuthHost        = Host1")
        myWriter.WriteLine("SettleHost        = Host1")
        myWriter.WriteLine("ProtocolName    = SmartVista")
        myWriter.Close()
    End Sub
    Private Sub ProcesTerminals()
        Dim dtTerminals As New DataTable
        Dim terminal_id As String
        Dim merchant_id As String
        Dim seriya As String
        TerminalBLL = New TerminalBLL
        dtTerminals = TerminalBLL.GetCollectionFilials

        For Each row In dtTerminals.Rows
            terminal_id = row("terminal_id").ToString()
            merchant_id = row("merchant_id").ToString()
            Call SaveInI(terminal_id, merchant_id)
            '  For Each col In dtTerminals.Columns
            '  Console.Write(vbTab & row("seriya").ToString())
            'Next


        Next
    End Sub



Но возникла другая проблема как можна заполнить datatable из оракловской базы и за инсёртить в ms sql базу?
PM MAIL   Вверх
diadiavova
Дата 12.8.2011, 22:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 8
Всего: 142
Цитата(Feller @  12.8.2011,  22:35 Найти цитируемый пост)
Но возникла другая проблема

Если эта проблема не имеет отношения к сабжу, то для нее надо отдельный топик создать и описать подробнее. Непонятно что именно надо и в чем проблема.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0438 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.