powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Каким образом можно вернуть строку ?
6 сообщений из 6, страница 1 из 1
Каким образом можно вернуть строку ?
    #35405057
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте !

Есть надобность печати на удаленном клиенте НЕ CACHE СРЕДСТВАМИ !!!
Т.е. получить на клиенте уже спозиционированную строку, что-то типа:

Код: plaintext
1.
2.
3.
4.
Stroca()
    ;
    Set a="?10,""Какой-то текст pos 10 "",?20,""Какой-то текст pos 20"""
    Q a 
    ;      

Если в терминале прикрутить это выгледело бы так:


Код: plaintext
1.
2.
3.
4.
USER>Set a="?10,""Какой-то текст pos 10 "",?20,""Какой-то текст pos 20"""
 
USER>w @a
          Какой-то текст pos  10  Какой-то текст pos  20 
USER>

Никак не доходит, конец рабочего ...
Спасибо.
...
Рейтинг: 0 / 0
Каким образом можно вернуть строку ?
    #35405507
Блок А.Н.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
До меня не доходит, чего вы хотите.
Наверно тяжелое начало дня ;-)
...
Рейтинг: 0 / 0
Каким образом можно вернуть строку ?
    #35405530
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для позиционирования мы используем мнемоническую команду

Код: plaintext
1.
2.
3.
s y= 5 
s x= 10 
s str="любая строка"
w /CUP(y,x),str
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT
...
Рейтинг: 0 / 0
Каким образом можно вернуть строку ?
    #35405621
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Блок А.Н.До меня не доходит, чего вы хотите.
Наверно тяжелое начало дня ;-)

По порядку

На Cache есть какая-то программа, которая выводит на обычный принтер
некую информациию :

Код: plaintext
Write=? 10 ,"Какой-то текст position 10 ",? 20 ,"Какой-то текст position 20"

Сейчас есть клиентское приложение написанное на VB, естественно хочеться,
что-бы все ето печаталось уже на клиенте ...
Значит, ему надо передать строку уже спозиционированную (те куда и с какой позиции
печать каждую переменную ) :
Код: plaintext
"          Какой-то текст pos 10 Какой-то текст pos 20"

Конечно, все это можно опять писать в клиенте, но не хочеться повторяться еще раз:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub Command1_Click()
Dim Ret As String, Ret1 As String
Dim nr As Integer
'dlg1.ShowPrinter
    
i = 0
MousePointer = vbHourglass
'Open "\\CC3\Epson FX-1170" For Output As #nPrinterHandle
m.Do "OpenTaxZS1^gEXP", Ret, nr, Er
Varfull = Split(Ret, "|")
Rec = UBound(Varfull)
For cnt =  0  To  10 
n = n +  1 
Ret1 = Varfull(cnt)
Printer.Print Piece(Ret1, "\",  1 ); Space( 10 ); Piece(Ret1, "\",  2 ); Space( 10 ); Piece(Ret1, "\",  3 )

'Printer.Print Piece(Ret1, "\", 1); Tab(20), Piece(Ret1, "\", 2); Tab(20), Piece(Ret1, "\", 3)

'Print #nPrinterHandle, Ret1 'strExpression
 Next cnt
'Close #nPrinterHandle
Printer.EndDoc
MousePointer = vbDefault
End Sub
...
Рейтинг: 0 / 0
Каким образом можно вернуть строку ?
    #35405702
SergeyMi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я думаю вашу проблему можно решить через спулинг.

- Запускаете программу печати, но выводите всё не принтер, а на 2 устройство.
- Получившийся глобал уже печатете на клиенте средствами VB
...
Рейтинг: 0 / 0
Каким образом можно вернуть строку ?
    #35405745
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Согласен на счет записать в промежуточный глобал, потом отсылать его клиенту.
Думал обойтись без этого ...
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Каким образом можно вернуть строку ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]