VPF::как преобразовать dos в excel? - Форум программистов

sov821

Дата 4.2.2003, 17:19 (ссылка)

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

Загрузка ...

Новичок

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

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

У меня такое задание:есть программа которая результат (таблица со значениями) выдаёт как досовский файл а мне надо эти данные преобразовать ПРОГРАММНЫМ ПУТЁМ в табличные данные в excel.
Помогите пожалуйста!
С уважением,
Сизова Ольга.

cardinal

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

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

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

Цитата

программа которая результат (таблица со значениями) выдаёт как досовский файл

А что за результат, то есть что написано в файле? В каком формате?
Напиши как пример то, что сидит в этом файле, если его открыть в Norton Commander`е нажав F3.

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

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Unregistered

Дата 26.3.2003, 00:43 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

записывай просто данный в файл с расширением xls, строки разделяются символом перевода строки, столбцы - пробелом, Excel сам сообразит, что к чему. Возможно при первом запуске в excel появится окно преобразования файла.

Trojan Lord

Дата 15.4.2003, 16:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Код

Public Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Public Declare Function GetACP Lib "kernel32" () As Long
Public Declare Function GetOEMCP Lib "kernel32" () As Long

Public Sub ConvertToDOS(PathStartingFile As String, PathConvertedFile As String)
Dim InputStr$, OutputStr$, NewFile$
Dim Code&
If Verification = True Then Exit Sub
On Error GoTo ErrDOSWin
Open PathStartingFile For Input As #1
Do While Not EOF(1)
Line Input #1, InputStr
OutputStr = Space$(Len(InputStr))
Code = CharToOem(InputStr, OutputStr)
NewFile = NewFile & OutputStr & vbCrLf
Loop
Close #1
Dim F%
F = FreeFile
Open PathConvertedFile For Output As #F
Write #F, NewFile
Close #F
Exit Sub
ErrDOSWin:
MsgBox "<" & Err.Number & "> - " & Err.Description
End Sub
Public Sub ConvertToWin(PathStartingFile As String, PathConvertedFile As String)
Dim InputStr$, OutputStr$, NewFile$
Dim Code&
If Verification = True Then Exit Sub
On Error GoTo ErrWinDOS
Open PathStartingFile For Input As #1
Do While Not EOF(1)
Line Input #1, InputStr
OutputStr = Space$(Len(InputStr))
Code = OemToChar(InputStr, OutputStr)
NewFile = NewFile & OutputStr & vbCrLf
Loop
Close #1
Dim F%
F = FreeFile
Open PathConvertedFile For Output As #F
Write #F, NewFile
Close #F
Exit Sub

ErrWinDOS:
MsgBox "<" & Err.Number & "> - " & Err.Description
End Sub
Private Function Verification() As Boolean
Dim OemCP&, AnsiCP&
OemCP = GetOEMCP
AnsiCP = GetACP
If OemCP <> 866 Or AnsiCP <> 1251 Then
MsgBox "Несоответствие кодовых таблиц", vbExclamation + vbOKOnly, "Ошибка!"
Verification = True
Exit Function
End If
Verification = False
End Function

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