none
помогите начинающему. RRS feed

  • Вопрос

  • есть текстовый файл, в нем строка: 26,4/25,8///03.11.2009 11:21:53/
    как мне выделить 03.11.2009 11:21:53 и записать в другой файл?
    26,4 и 25,8 я записал в файл, а дату не получается.

    Private arr1 As Single
    ****
    Dim fileReader As System.IO.StreamReader
    Dim ind As Integer
    Dim SbString1 As String
    Dim sR As String
    ****
                fileReader = _
                My.Computer.FileSystem.OpenTextFileReader("123.txt")
                sR = fileReader.ReadLine()
                ind = sR.IndexOf("/")
                SbString1 = sR.Substring(0, ind)
                arr1 = Single.Parse(SbString1)
                sw.Write(arr1)
                sw.Write("    ")
    ****
    заранее спасибо.
    • Перемещено SachinW 1 октября 2010 г. 22:21 MSDN Forums Consolidation (От:Начинающие разработчики)
    29 января 2010 г. 6:02

Ответы

  • как-то так

            Dim fileReader As System.IO.StreamReader = New System.IO.StreamReader("123.txt")
            Dim str As String = fileReader.ReadLine()
            fileReader.Close()
            Dim stringSeparators() As String = {"///"}
            Dim st1() As String = str.Split(stringSeparators, StringSplitOptions.None) 'разделяем 26,4/25,8///03.11.2009 11:21:53/ на 26,4/25,8 и 03.11.2009 11:21:53/
            Dim charSeparators1() As Char = {"/"}
            Dim st2() As String = st1(0).Split(charSeparators1) 'разделяем 26,4/25,8 на 26,4 и 25,8
            st1(1) = st1(1).Remove(st1(1).Length - 1, 1) 'убираем / в конце 03.11.2009 11:21:53/
            Dim charSeparators2() As Char = {" "}
            Dim st3() As String = st1(1).Split(charSeparators2) 'разделяем 03.11.2009 11:21:53 на 03.11.2009 и 11:21:53
    
            Dim fileWriter As System.IO.StreamWriter = New System.IO.StreamWriter("456.txt")
            For Each s As String In st2
                fileWriter.WriteLine(s)
            Next s
            For Each s As String In st3
                fileWriter.WriteLine(s)
            Next s
            fileWriter.Close()


    • Помечено в качестве ответа I.Vorontsov 29 января 2010 г. 11:32
    29 января 2010 г. 7:05

Все ответы

  • как-то так

            Dim fileReader As System.IO.StreamReader = New System.IO.StreamReader("123.txt")
            Dim str As String = fileReader.ReadLine()
            fileReader.Close()
            Dim stringSeparators() As String = {"///"}
            Dim st1() As String = str.Split(stringSeparators, StringSplitOptions.None) 'разделяем 26,4/25,8///03.11.2009 11:21:53/ на 26,4/25,8 и 03.11.2009 11:21:53/
            Dim charSeparators1() As Char = {"/"}
            Dim st2() As String = st1(0).Split(charSeparators1) 'разделяем 26,4/25,8 на 26,4 и 25,8
            st1(1) = st1(1).Remove(st1(1).Length - 1, 1) 'убираем / в конце 03.11.2009 11:21:53/
            Dim charSeparators2() As Char = {" "}
            Dim st3() As String = st1(1).Split(charSeparators2) 'разделяем 03.11.2009 11:21:53 на 03.11.2009 и 11:21:53
    
            Dim fileWriter As System.IO.StreamWriter = New System.IO.StreamWriter("456.txt")
            For Each s As String In st2
                fileWriter.WriteLine(s)
            Next s
            For Each s As String In st3
                fileWriter.WriteLine(s)
            Next s
            fileWriter.Close()


    • Помечено в качестве ответа I.Vorontsov 29 января 2010 г. 11:32
    29 января 2010 г. 7:05
  • попробую. премного благодарен.
    29 января 2010 г. 8:55
  • КЛАСС. помогли, спасибо, буду усовершенствовать!!!!!!!!!!!!!!!!!!!!!!!!!:)
    29 января 2010 г. 9:00