Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB .NET > Как создать ini файл и записать в него информацию?


Автор: Feller 12.8.2011, 15:41
Помогите создать програмно ini файл и записать в него информацию вернувшиеся при помощи запроса.

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

эти данные возвращаются при помощи запроса остальные статичные
TerminalID      = 90123456 
MerchantID      = 911222333444 

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

Dim myWriter As StreamWriter



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

        myWriter.WriteLine("test")

        myWriter.Close()

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

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

Автор: Feller 12.8.2011, 21:35
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 базу?

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

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)