Перейти к публикации

Технические требования


Рекомендованные сообщения

sav

Так вначале так и было. И обратно в солид значки передаются именно в таком виде. Но в самом редакторе мне хотелось чтобы значки выглядили как положено, а не в виде полей. Для градуса и значка плюс\минус в обычной кодировке из 256 символов значки имеются. А для диаметра его нет. А работать с текстом в юникоде у меня не получилось. Если текстовый файл в котором хранятся ТТ сделать юникодовским, то в программе в выпадающих списках оказываются закорючки. Попытаюсь еще, может быть и получится. Хотел еще профили сделать, чтобы часто используемые наборы ТТ сразу вставлять. Не знаю только когда время будет.

Ссылка на сообщение
Поделиться на других сайтах


:smile: TO: Leon

Не знаю поможет тебе это или нет, но уменя была проблема с передачей текста из формы программы в свойства файла SW(так же появлялись крякозябры), для исправления ситуации написал следующий код на VB, после этого все стало нормально.

Private Function Conv2Ascii(Strok As String)

			Dim i As Integer

			For i = 1 To Len(Strok)

			If Asc(Mid(Strok, i, 1)) = 10 Or Asc(Mid(Strok, i, 1)) = 13 Then

				Conv2Ascii = Conv2Ascii & Mid(TextBox1.text, i, 1)

			ElseIf Asc(Mid(Strok, i, 1)) >= 128 And Asc(Mid(Strok, i, 1)) <= 255 Then

				Conv2Ascii = Conv2Ascii & Mid(Strok, i, 1)

			Else

				Conv2Ascii = Conv2Ascii & Chr(AscW(Mid(Strok, i, 1)))

			End If

			Next i

End Function
Ссылка на сообщение
Поделиться на других сайтах

Спасибо, Kelny, но чего-то не помогло. У меня правда ситуация немного другая. У меня исходный текстовый файл в формате Unicode. Когда текст из него считывается в программу то мне его не отобразить в нормальном виде. Читаются только латинские буквы. Значок диаметра заменяется буквой Ш. Русский текст выглядит примерно так "07<5@K 4;O A?@02>:."

Может надо какую библиотеку подгрузить? :g:

Ссылка на сообщение
Поделиться на других сайтах

Можно MSDN посмотреть <noindex>http://msdn.microsoft.com/library/rus/defa...gclasstopic.asp</noindex>

Ну и к слову по поводу того что некоторые тех требования могут быть растянуты на несколько строк, вот интересный макрос который задает ширину примечания и если все записано в одну строчку автоматом переносится на новую строчку не сбивая стандартную нумерацию SW, ну собственно: <noindex>Изменение ширины примечания.swp</noindex>, но и твой вариант Leon мне тоже понравился.

Ссылка на сообщение
Поделиться на других сайтах

MSDN у меня есть на диске. Я тут интернет перерыл, и про библиотеку fm20 прочитал и про кодировки еще раз, и так и сяк пытался, и реестр ковырял, но что-то все не то. Правда обрывки русского текста мне все же удалось вытащить, но только обрывки. Что-то я не так делаю или редактор у меня кривой или руки.

Если кому не в тягость, попробуйте создать файл с расширением txt в кодировке юникод с русским текстом, а затем считать его программой и строки вывести в combobox :surrender::surrender::surrender:

Ссылка на сообщение
Поделиться на других сайтах

To: Leon

Сохранял в формате unicod через WordPad, вот накидал маленько посмотри

Private Sub Form_Load()



'==================================================================

'Этот способ не читает Unicod

'==================================================================

Source = "G:\Unicod\info.txt"

  Open Source For Input As #1			   ' Open source file.

  Do While Not EOF(1)					   ' Loop until end of file.

	Line Input #1, Reader

ComboBox1.AddItem Reader

Loop

Close #1

'==================================================================



'==================================================================

'Этот способ читает Unicod, ну собственно ссылка код ниже :), из хелпа примерчик OpenAsTextStream Method.

'==================================================================

TextStreamTest

'==================================================================



End Sub



Sub TextStreamTest()

	Const ForReading = 1, ForWriting = 2, ForAppending = 3

	Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

	Dim fs As Scripting.FileSystemObject, f, ts, s

	Set fs = CreateObject("Scripting.FileSystemObject")

	'fs.CreateTextFile "G:\Unicod\info.txt"		   'Create a file

	Set f = fs.GetFile("G:\Unicod\info.txt")

	'Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)

	'ts.Write "Hello World"

	'ts.Close

	Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

	While ts.AtEndOfStream = False

	s = ts.ReadLine

	ComboBox1.AddItem s

	'MsgBox s

	Wend

	ts.Close

End Sub

Ну и конечно знак диаметра попробовал вставить работает в комбобоксе как знак диаметра :)

Тоже самое, но уже файлы:

А исходники ТТ3 можешь выложить? :smile:

Ну или прислать?

Ссылка на сообщение
Поделиться на других сайтах

Спасибо Kelny. Очень меня выручаешь. Я вечером посмотрю дома. Вот исходники TT3.

TT3__________.rar

Ссылка на сообщение
Поделиться на других сайтах

Обращайся чем смогу помогу. Тока в архив не положил тот код, что в форуме написал :blink: , собрал архив до того как сохранился щас вроде поправил :smile: .

Ссылка на сообщение
Поделиться на других сайтах
  • 13 лет спустя...
35 минут назад, iurii12345 сказал:

исходники последней версии?

13 лет назад было деле :)  Уже давно это все в отдельной теме макросы Леона.

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




×
×
  • Создать...