| Вопрос: Новое сообщение без темы | Добавлено: 02.02.04 18:42 |
Автор вопроса:  Radif | Web-сайт: www.louvre.narod.ru | ICQ: 247388017 |
|
Подскажите как сохранить значение стринговой переменной (например а$) в файле в формате юникод, а лучше UTF-8. Если не знаете, пришлите хотя бы API для перекодировки в UTF-8 и юникод. Спасибо. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 03.02.04 10:01 |
|
Function GetString(ByVal Filenumber As Integer, _ ByVal Lng As Boolean) As String Dim StrLengthLng As Long Dim StrLengthInt As Integer Dim StrLength As Long If Lng Then Get #Filenumber, , StrLengthLng StrLength = StrLengthLng Else Get #Filenumber, , StrLengthInt StrLength = StrLengthInt End If GetString = String$(StrLength, " ") Get #Filenumber, , GetString End Function Sub PutString(ByVal Filenumber As Integer, Strng As String, _ ByVal Lng As Boolean) If Lng Then Put #Filenumber, , CLng(Len(Strng)) Else Put #Filenumber, , CInt(Len(Strng)) End If Put #Filenumber, , Strng End Sub Function GetStringU(ByVal Filenumber As Integer, _ ByVal Lng As Boolean) As String Dim StrLengthLng As Long Dim StrLengthInt As Integer Dim StrLength As Long If Lng Then Get #Filenumber, , StrLengthLng StrLength = StrLengthLng Else Get #Filenumber, , StrLengthInt StrLength = StrLengthInt End If
If StrLength = 0 Then GetStringU = "" Else ReDim rwert(StrLength * 2 - 1) As Byte Get #Filenumber, , rwert GetStringU = rwert End If End Function Sub PutStringU(ByVal Filenumber As Integer, _ Strng As String, ByVal Lng As Boolean) If Lng Then Put #Filenumber, , CLng(Len(Strng)) Else Put #Filenumber, , CInt(Len(Strng)) End If Dim b() As Byte b = Strng Put #Filenumber, , b End Sub |
||
|
Номер ответа: 2 Автор ответа: Radif ICQ: 247388017 Вопросов: 13 Ответов: 6 |
Web-сайт: Профиль | | #2 | Добавлено: 04.02.04 17:27 |
|
Спасибо, всё работает! |
||
|
Номер ответа: 3 Автор ответа:  Millenium ICQ: 629966 Вопросов: 118 Ответов: 903 |
Web-сайт: Профиль | | #3 | Добавлено: 06.02.04 13:27 |
|
А как задать Лейблу или текстовому ящику один символ юникода? Чтобы во всех ОСях работало. |
||
|
Номер ответа: 4 Автор ответа: RadifICQ: 247388017 Вопросов: 13 Ответов: 6 |
Web-сайт: Профиль | | #4 | Добавлено: 06.02.04 19:56 |
|
Бери текстбокс и лейбл из fm20.dll, они поддерживают юникод. |
||
Страница: 1 |