Русские символы при импорте из файла.

@gontiaval · Регистрация: 01.09.2009

Author24 — интернет-сервис помощи студентам

Господа, здравствуйте !!!
Меня интересует такой вопрос.
При попытке импортирования строки из техтового файла
1.ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТ
2. ......... и т.д.
в БД, вместо русских букв получаю какие-то квадратики.
Попытался тестировать на форму(ListBox,ComboBox).
Использовал и свойства Font.charset результат такой-же
На машине Windows XP2003
А вот мой тест:
Dim sTemp As String
Dim charset As String
dlg1.ShowOpen
Open '' & dlg1.FileName & '' For Input As #1
While Not EOF(1)
Line Input #1, sTemp
List1.AddItem sTemp
Text1.Text = sTemp
Combo1.AddItem sTemp
Wend
Close #1
В чем Вопрос ???
Спасибо.

@Konst_one · 15.03.2010, 14:40

Попробуй использовать функцию перекодировки:

sTemp=vba.StrConv(sTemp,vbFromUnicode)

16.03.2010, 00:36

И используй не канал #1, а получай его номер функцией FreeFile! Это ж не дос все-таки - и есть вероятность, что канал #1 уже занят...

@gontiaval 0 / 0 / 0 Регистрация: 01.09.2009 Сообщений: 46
		1
	Русские символы при импорте из файла. 15.03.2010, 14:00. Показов 1598. Ответов 2 Метки нет (Все метки) Господа, здравствуйте !!! Меня интересует такой вопрос. При попытке импортирования строки из техтового файла 1.ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТ 2. ......... и т.д. в БД, вместо русских букв получаю какие-то квадратики. Попытался тестировать на форму(ListBox,ComboBox). Использовал и свойства Font.charset результат такой-же На машине Windows XP2003 А вот мой тест: Dim sTemp As String Dim charset As String dlg1.ShowOpen Open '' & dlg1.FileName & '' For Input As #1 While Not EOF(1) Line Input #1, sTemp List1.AddItem sTemp Text1.Text = sTemp Combo1.AddItem sTemp Wend Close #1 В чем Вопрос ??? Спасибо. 0

@Konst_one 2 / 2 / 1 Регистрация: 19.07.2007 Сообщений: 737
	15.03.2010, 14:40	2
	Попробуй использовать функцию перекодировки: sTemp=vba.StrConv(sTemp,vbFromUnicode) 0

Messir
	16.03.2010, 00:36	3
	И используй не канал #1, а получай его номер функцией FreeFile! Это ж не дос все-таки - и есть вероятность, что канал #1 уже занят...