Преобразование речи в текст программа windows

1

10.01.2011, 11:10. Показов 11948. Ответов 23

0

10.01.2011, 11:42

2

1

s=vba.StrConv(ss,vbFromUnicode)

0

10.01.2011, 11:54

3

1
2
3
4
5
6
7
8
9
10

Dim s As String
Dim c As Integer
Dim b(1) As Byte
c = 1092 ' код буквы ф в UNICODE
b(0) = c Mod 256
b(1) = c  256
s = b
MsgBox (s) ' ы
с = Asc(s)
MsgBox с ' Код первой буквы в ANSI

0

10.01.2011, 11:56

4

1
2
3
4
5
6
7
8
9
10

Dim s As String
Dim c As Integer
Dim b(1) As Byte
c = 1092 ' код буквы ф в UNICODE
b(0) = c Mod 256
b(1) = c  256
s = b
MsgBox (s) ' ф
с = Asc(s)
MsgBox с ' Код буквы ф в ANSI

0

10.01.2011, 12:30

 [ТС]

5

0

10.01.2011, 12:40

6

Я понял так, что если вам нужно ‘перекодировать’, то у вас уже есть исходный код. То есть вы читаете файл офисного документа командой Get в переменную типа Integer. Там у вас и будет нужный код. Или я вас неправильно понял?

0

10.01.2011, 12:57

7

1
2
3
4
5
6
7
8
9

Dim s As String
Dim c As Integer
Dim b() As Byte
s = 'ф' ' Буква хранится в кодировке UNICODE
b = s
c = b(1) * 256 + b(0)
' как вариант, без использования динамического байтового массива
' c = AscB(MidB(s, 2, 1)) * 256 + AscB(MidB(s, 1, 1))
MsgBox c ' Код буквы ф

0

10.01.2011, 13:13

 [ТС]

8

pavla — не совсем так. Пока конкретно примера нет. Поэтому предложу проще: у меня имеется файл, и знаю, что он текстовый но в Unicoe.
Если я его открываю по DOS-ки из панели Norton Comander for Windows даже через ‘F3’ — то я виже абракодабру… и только латынь читается как есть.
Если это проделать с файлом Win98 — то все читается, но и через ‘F4’, сам откроется Notepad и так же все читаем.!!
А если открыть файл Open File as Binary, из VB — похоже ответ [Konst_one] самoе то? что мне надо и это как ответ на ваш встречный вопрос:
— ‘То есть вы читаете файл офисного документа командой Get в переменную типа Integer’ — а как имеете вы ввиду через GET или я фактически ответил?
СПАСИБО, жду спорных разговоров. А в споре рождается истина!

0

10.01.2011, 13:15

 [ТС]

9

P.s. — и все же мне не ответили еще, отвлеклись:
Поэтому к ‘palve’ — а как все же узнать эти коды?

0

10.01.2011, 13:31

10

Unicode тоже разный бывает. UTF-8 тоже называют Unicode, там латынь идет как есть, по одному байту на символ, а русские буквы по два байта. Если у вас этот случай, то методы которые мы здесь обсуждали неприменимы. Для того, чтобы из этих двух байтов получить настоящий Unicode, нужно использовать API-функцию MultiByteToWideChar.

0

10.01.2011, 13:42

 [ТС]

11

Palva, я сказал как я вижу. Очевидно это и есть такой случай.
Тогда, пожалуйста, если можно: — где есть полный пример передировки для моего данного случая.
А вот второй пример, когда я копирую из текста в ХР, а потом вставлюя в код VB6 — я читаю абракодабру!!!! И наоборот
Копирую из окна (Text1.Text, например) запущенного проекта программы текст и всталяю в отдельно вызванный Лист1 Exel ручным способом, то же абр….!
Возможно это второй вариант или то же, я незнаю. Но отрицательный эффект нужно исправить!
СПАСИБО!

0

10.01.2011, 13:44

12

0

10.01.2011, 14:04

 [ТС]

13

Palva — ну, спасибо. Убил наповал! Конечно, нужно обсосать… поработать. Но все прекрасно. Ниточку я зацепил.
Это как в анекдоте: выпил мужик три пузыря и еще хочет, а денег только на чекушку. ..Купил и упал…но сид хватило подумать, зачем я так много выпил, купм бы чекшку…
СПАСИБО. Пока.

0

10.01.2011, 14:33

14

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

Const CP_UTF8 = 65001
Private Declare Function MultiByteToWideChar Lib 'Kernel32.dll' _
( _
  ByVal CodePage As Long, _
  ByVal dwFlags As Long, _
  ByRef lpMultiByteStr As Byte, _
  ByVal cbMultiByte As Long, _
  ByRef lpWideCharStr As Byte, _
  ByVal cchWideChar As Long _
) As Boolean
Sub test()
Dim b(7) As Byte
Dim i(7) As Byte
Dim s As String
' Прочитали b из файла, например, следующие значения
b(0) = &HD1 ' ф
b(1) = &H84 '
b(2) = &HD1 ' ы
b(3) = &H8B '
b(4) = &HD0 ' в
b(5) = &HB2 '
b(6) = &HD0 ' а
b(7) = &HB0 '
If MultiByteToWideChar(CP_UTF8, 0, b(0), 8, i(0), 4) Then
  s = i
  MsgBox (s) ' фыва
End If
End Sub

0

10.01.2011, 14:50

 [ТС]

15

…. ну это уже сил нет отвечать, добиваешь меня palva
и как это может не пригодиться: я как ‘Плюшкин’, мне все надо… это все та же цепочка тянется. Однозначности в программировании не бывает, изменишь чуть-чуть, а как приятно :)
С П А С И Б О !!!!
… тольеко на сегодня хотя бы. Я ничего не успел применить для своего варианта. Хотя этоне просто.
То отвечаю на форуме, то работа дергает. Спасибо., если считаешь нужным, все что касается воруг этой темы, пиши !
С уважением, Дмитри

0

12.01.2011, 10:53

16

Тема неожиданно оказалась интересной и для меня. Задача такая – есть текстовый файл, который надо разбирать построчно, что я и делаю через FSO, открывая его, как TextStream.
Текст в основном на латинице, но среди внятного английского текста встретились кракозябры. При более детальном исследовании кракозябры вполне по-русски прочитались в Word’е, после того, как я выбрал кодировку UTF-8. Это, видимо, та самая кодировка, о которой говорил palva. В связи с этим у меня к Вам, palva, вопрос – не прокомментируете ли подробнее вашу рекомендацию по преобразованию UTF-8 в удобочитаемый текст? В кодировках я не слишком силен, сходу сам в проблеме не разобрался.

0

Messir

12.01.2011, 11:16

17

Что-то вспомнилась реклама ‘А вы все еще вывариваете? Тогда мы идем к вам…’ (можно считать, что на правах рекламы .net)

12.01.2011, 11:22

18

Все верно, Messir, в MSDN нашел все, что надо, но для дот-нет. Но мы по ряду причин ‘все еще кипятим’. Так что вопрос остается открытым — как справиться с UTF-8.

0

Messir

12.01.2011, 11:56

19

Я что-то не могу понять ваших проблем, господа
Сначала MultiByteToWideChar, потом WideCharToMultiByte — и никаких проблем, чего кипятиться-то?

12.01.2011, 12:04

20

Ну если на бейсике, то можно результат MultiByteToWideChar (массив Byte) положить в строку и сразу иметь корректную строку, как в примере выше. Если надо преобразовывать в ANSI, OEM или еще куда, то тогда конечно WideCharToMultiByte, хотя для ANSI достаточно бейсиковской Asc. Еще один вопрос — это какого размера должен быть байтовый массив, чтобы вместить перекодированную строку. MSDN здесь пишет, что для этого MultiByteToWideChar должна иметь нулевой параметр (не помню какой), и тогда функция возвратит вам необходимый размер.

0