преобразовать данные из csv into openoffice

[doober]

Предложу и свой вариант
Пример использования

Private Sub CommandButton2_Click()
s = "00:00:00,7,845,7,3" & vbCrLf & "07:08:04,7,945,7,93"
X = M_Csv(s)
End Sub

Результат

Public Function M_Csv(ByVal s)
      Dim R, Count As Integer, ST, Count2 As Integer
     bRes = False
  Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Global = True
    RegExp.MultiLine = True
    RegExp.IgnoreCase = True
    RegExp.Pattern = "(\d){2}:(\d){2}:(\d){2}"
    bRes = RegExp.test(s)
        If bRes Then
            Set oMatches = RegExp.Execute(s)
            Count2 = oMatches.Count
               ReDim ST(1 To Count2)
            For L = 1 To Count2
            Dim X
            X = Wop(s)
              Count = UBound(X) + 1
                ReDim R(1 To Count)
              R(1) = oMatches(L - 1).Value
            For n = 1 To Count - 1
            R(n + 1) = X(n)
            Next
            ST(L) = R
            Next
            M_Csv = ST
         Exit Function
        End If
    End Function

 Public Function Wop(ByVal s)
      Dim R, Count As Integer
     bRes = False
  Set RegExp = CreateObject("VBScript.RegExp")
  RegExp.Global = True
    RegExp.MultiLine = True
    RegExp.IgnoreCase = True
    RegExp.Pattern = "(7,(\d){1,8})"
    bRes = RegExp.test(s)
        If bRes Then
            Set oMatches = RegExp.Execute(s)
              Count = oMatches.Count
            ReDim R(1 To Count)
            For n = 1 To Count
            R(n) = oMatches(n - 1).Value
            Next
              Wop = R
         Exit Function
        End If
End Function

[Galbert]

Казанскому:
Действительно, задача сходная. Только решения я не увидел.
Hugo121:
Не хочется с макросом связываться...
Может быть можно разделителями обойтись?

Всем спасибо!

[Galbert]

Казанскому:
Действительно, задача сходная. Только решения я не увидел.
Hugo121:
Не хочется с макросом связываться...
Может быть можно разделителями обойтись?

Всем спасибо!

[alex77755]

Не по теме
Это только у меня или настройки какие есть, но при сохранении в формате
"csv, разделитель запятые" независимо от наличия целых или десятичных чисел в файле числа всё равно разделены ";"
Откуда такой хитрый файл. Мои попытки стандартными способами сохранить в разделителями "," успехов не дали

[alex77755]

Если все 7, то мой вариант:

Dim S() As String
Dim CF As String
   File = ActiveWorkbook.Path & "\45.txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
      Close #1
 CF = Replace(CF, " ", "")
 CF = Replace(CF, ",7,", ";7,")
 S = Split(CF, vbNewLine)

А уже массив обработать построчно с разбивкой по ";"

[alex77755]

А вот с генерацией не соображу пока
Во влошениивнешний вид и сам файл

[alex77755]

Вот так всё получается

Sub QWERT()
Dim S() As String
Dim CF As String
   File = ActiveWorkbook.Path & "\45.txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
      Close #1
 CF = Replace(CF, " ", "")
 CF = Replace(CF, ",7,", ";7,")
File = ActiveWorkbook.Path & "\40.txt"
 Open File For Output As #1
 Print #1, CF
Close #1
End Sub

Потом открывается нормально

[alex77755]

Код для ОпенОфиса:

sub Main2

dim  FileName 
FileName = "C:\45.txt"
Open FileName For Input As #1 'Открываем файл для ввода
Open "C:\40.txt" For output As #2 'Открываем файл для ввода
Do While NOT EOF(1) 'Пока НЕ достигнут конец файла
line Input #1, CF 'Чтение некоторых данных!
 CF = Replace(CF, " ", "")
 CF = Replace(CF, ",7,", ";7,")
Print #2, CF
loop
close #1
close #2
end sub