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

[Leon 433]

sav

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

[Kelny 1 239]

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

[Leon 433]

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

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

[Kelny 1 239]

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

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

[Leon 433]

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

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

[Kelny 1 239]

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 можешь выложить?

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

[Leon 433]

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

TT3__________.rar

[Kelny 1 239]

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

[iurii12345 0]

Спасибо! Возможно посмотреть исходники последней версии?

[Maik812 289]

35 минут назад, iurii12345 сказал:

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

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