Работа с текстовыми переменными

@andryshka69 · Регистрация: 26.11.2013

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

Доброго времени суток, столкнулся с такой проблемой:

Есть у меня такой скрипт:

Кликните здесь для просмотра всего текста

'LANGUAGE=RUS
'SERVERNAME=ms-cms001
Public Sub Main()

'## cvs_cmd_begin
'## ID = 8000
'## Description = "Acd Administration, Изменить 52000"
'## Parameters.Add "Acd Administration","SubSystem"
'## Parameters.Add "Изменить 52000","FormName"
'## Parameters.Add "-1","DummyType"
'## Parameters.Add "-1","DummyAcd"
'## Parameters.Add "1","Action"
'## Parameters.Add "6","SetSk_Acd"
'## Parameters.Add "52000","SetSk_AgentID"
'## Parameters.Add "2","SetSk_CallHandPref"
'## Parameters.Add "0","SetSk_DirectSkill"
'## Parameters.Add "0","SetSk_DirectFirst"
'## Parameters.Add "1","SetSk_ServiceObjective"
'## Parameters.Add "1","SetSk_NumofSkills"
'## Parameters.Add "14","BeginSetSkills"
'## Parameters.Add "98",""
'## Parameters.Add "1",""
'## Parameters.Add "0",""
'## Parameters.Add "","SetSk_Warning"
,

On Error Resume Next

set AgMngObj = cvsSrv.AgentMgmt
ReDim SetArr (1,3)
SetArr(1,1)= 98
SetArr(1,2)= 1
SetArr(1,3)= 0

AgMngObj.AcdStartUp -1, "", cvsSrv.ServerKey, -1
AgMngObj.OleAgentSetSkill 6, "52000",2, 0,0, 1, 1,SetArr, ""

'## cvs_cmd_end

End Sub

Необходимо с помощью программы менять в нем число 52000. Сталкиваюсь с проблемой что в тексте есть ковычки и немогу записать этот текст в переменную, пока есть идея с текстбоксами, но это неудобно ужс...

Добавлено через 58 секунд
Идея у меня какая:
текстбокс куда номер (типа 52000) вводится и кнопка выполнить.
Не пойму как хранить и изменять этот текст в коде..

@korep · 13.09.2015, 15:34

"кавычки" экранируй. Пример:

C#
1
\"

Добавлено через 23 секунды

C#
1
"\""

@andryshka69 · 13.09.2015, 15:47 **[ТС]**

2 korep

не понял

Добавлено через 9 минут
мечтаю о:

C#
1
2
3
4
5
6
string A (первая часть текста)
...
string Z (последняя часть текста)
 
void dosmth(int param){
string newdoc = A + param.ToString() + ...;

@korep · 13.09.2015, 15:48

если у вас в тексте есть " ставьте перед ними \

@andryshka69 · 13.09.2015, 16:41 **[ТС]**

2 korep

можешь привести пример по моей задаче?

@ViterAlex · 13.09.2015, 18:26

Вот так (пустые строки я убрал):

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
string text =   "'LANGUAGE=RUS\r\n" +
                "'SERVERNAME=ms-cms001\r\n" +
                "Public Sub Main()\r\n" +
                "'## cvs_cmd_begin\r\n" +
                "'## ID = 8000\r\n" +
                "'## Description = \"Acd Administration, Изменить 52000\"\r\n" +
                "'## Parameters.Add \"Acd Administration\",\"SubSystem\"\r\n" +
                "'## Parameters.Add \"Изменить 52000\",\"FormName\"\r\n" +
                "'## Parameters.Add \"-1\",\"DummyType\"\r\n" +
                "'## Parameters.Add \"-1\",\"DummyAcd\"\r\n" +
                "'## Parameters.Add \"1\",\"Action\"\r\n" +
                "'## Parameters.Add \"6\",\"SetSk_Acd\"\r\n" +
                "'## Parameters.Add \"52000\",\"SetSk_AgentID\"\r\n" +
                "'## Parameters.Add \"2\",\"SetSk_CallHandPref\"\r\n" +
                "'## Parameters.Add \"0\",\"SetSk_DirectSkill\"\r\n" +
                "'## Parameters.Add \"0\",\"SetSk_DirectFirst\"\r\n" +
                "'## Parameters.Add \"1\",\"SetSk_ServiceObjective\"\r\n" +
                "'## Parameters.Add \"1\",\"SetSk_NumofSkills\"\r\n" +
                "'## Parameters.Add \"14\",\"BeginSetSkills\"\r\n" +
                "'## Parameters.Add \"98\",\"\"\r\n" +
                "'## Parameters.Add \"1\",\"\"\r\n" +
                "'## Parameters.Add \"0\",\"\"\r\n" +
                "'## Parameters.Add \"\",\"SetSk_Warning\"\r\n" +
                "On Error Resume Next\r\n" +
                "set AgMngObj = cvsSrv.AgentMgmt\r\n" +
                "ReDim SetArr (1,3)\r\n" +
                "SetArr(1,1)= 98    \r\n" +
                "SetArr(1,2)= 1 \r\n" +
                "SetArr(1,3)= 0 \r\n" +
                "AgMngObj.AcdStartUp -1, \"\", cvsSrv.ServerKey, -1 \r\n" +
                "AgMngObj.OleAgentSetSkill 6, \"52000\",2, 0,0, 1, 1,SetArr, \"\" \r\n" +
                "'## cvs_cmd_end\r\n" +
                "End Sub";

@Woldemar89 · 14.09.2015, 12:37

Сообщение от ViterAlex

Вот так (пустые строки я убрал):

andryshka69, ViterAlex,

Скрипт в блокнот, автозамена " на "". Выделить текст.

C#
1
string a = @"/*вставить сюда*/";

Далее Regex.Replace().

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Text.RegularExpressions;
 
namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
 
            string a = 
 
@"'LANGUAGE=RUS
'SERVERNAME=ms-cms001
Public Sub Main()
 
'## cvs_cmd_begin
'## ID = 8000
'## Description = ""Acd Administration, Изменить 52000""
'## Parameters.Add ""Acd Administration"",""SubSystem""
'## Parameters.Add ""Изменить 52000"",""FormName""
'## Parameters.Add ""-1"",""DummyType""
'## Parameters.Add ""-1"",""DummyAcd""
'## Parameters.Add ""1"",""Action""
'## Parameters.Add ""6"",""SetSk_Acd""
'## Parameters.Add ""52000"",""SetSk_AgentID""
'## Parameters.Add ""2"",""SetSk_CallHandPref""
'## Parameters.Add ""0"",""SetSk_DirectSkill""
'## Parameters.Add ""0"",""SetSk_DirectFirst""
'## Parameters.Add ""1"",""SetSk_ServiceObjective""
'## Parameters.Add ""1"",""SetSk_NumofSkills""
'## Parameters.Add ""14"",""BeginSetSkills""
'## Parameters.Add ""98"",""""
'## Parameters.Add ""1"",""""
'## Parameters.Add ""0"",""""
'## Parameters.Add """",""SetSk_Warning""
,
 
 
On Error Resume Next
 
set AgMngObj = cvsSrv.AgentMgmt
ReDim SetArr (1,3)
SetArr(1,1)= 98 
SetArr(1,2)= 1  
SetArr(1,3)= 0  
 
 
AgMngObj.AcdStartUp -1, """", cvsSrv.ServerKey, -1  
AgMngObj.OleAgentSetSkill 6, ""52000"",2, 0,0, 1, 1,SetArr, """" 
 
 
'## cvs_cmd_end
 
End Sub";
 
            //тут Regex.Replace
 
            Console.WriteLine(a);
 
            Console.ReadKey();
 
        }
    }
}

Добавлено через 1 час 40 минут

Сообщение от andryshka69

и изменять этот текст в коде..

пс кроме Regex.Replace - легче так - заведи в скрипте переменную содержащую нужное значение (52000).
Чтобы можно было использовать string.Replace например.

@andryshka69 · 20.09.2015, 22:49 **[ТС]**

Woldemar89
Спасибо,но мне больше удобен вариант ViterAlex, т.к. очень удобно менять 52000 в этом месте в программе сразу. Еще раз спасибо, очень полезная информация!

Новые блоги и статьи Все статьи Все блоги /
Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой Programma_Boinc 10.04.2026 Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой Если на Windows стоит дискретная NVIDIA или AMD — можно отдать её вычислительную мощность реальным исследованиям. . . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@andryshka69 3 / 3 / 0 Регистрация: 26.11.2013 Сообщений: 129

	Работа с текстовыми переменными 13.09.2015, 15:33. Показов 1589. Ответов 7 Метки нет (Все метки) Доброго времени суток, столкнулся с такой проблемой: Есть у меня такой скрипт: Кликните здесь для просмотра всего текста 'LANGUAGE=RUS 'SERVERNAME=ms-cms001 Public Sub Main() '## cvs_cmd_begin '## ID = 8000 '## Description = "Acd Administration, Изменить 52000" '## Parameters.Add "Acd Administration","SubSystem" '## Parameters.Add "Изменить 52000","FormName" '## Parameters.Add "-1","DummyType" '## Parameters.Add "-1","DummyAcd" '## Parameters.Add "1","Action" '## Parameters.Add "6","SetSk_Acd" '## Parameters.Add "52000","SetSk_AgentID" '## Parameters.Add "2","SetSk_CallHandPref" '## Parameters.Add "0","SetSk_DirectSkill" '## Parameters.Add "0","SetSk_DirectFirst" '## Parameters.Add "1","SetSk_ServiceObjective" '## Parameters.Add "1","SetSk_NumofSkills" '## Parameters.Add "14","BeginSetSkills" '## Parameters.Add "98","" '## Parameters.Add "1","" '## Parameters.Add "0","" '## Parameters.Add "","SetSk_Warning" , On Error Resume Next set AgMngObj = cvsSrv.AgentMgmt ReDim SetArr (1,3) SetArr(1,1)= 98 SetArr(1,2)= 1 SetArr(1,3)= 0 AgMngObj.AcdStartUp -1, "", cvsSrv.ServerKey, -1 AgMngObj.OleAgentSetSkill 6, "52000",2, 0,0, 1, 1,SetArr, "" '## cvs_cmd_end End Sub Необходимо с помощью программы менять в нем число 52000. Сталкиваюсь с проблемой что в тексте есть ковычки и немогу записать этот текст в переменную, пока есть идея с текстбоксами, но это неудобно ужс... Добавлено через 58 секунд Идея у меня какая: текстбокс куда номер (типа 52000) вводится и кнопка выполнить. Не пойму как хранить и изменять этот текст в коде.. 0

@korep 52 / 45 / 18 Регистрация: 06.01.2013 Сообщений: 626
	13.09.2015, 15:48
	если у вас в тексте есть " ставьте перед ними \ 0

@andryshka69 3 / 3 / 0 Регистрация: 26.11.2013 Сообщений: 129
	13.09.2015, 16:41 [ТС]
	2 korep можешь привести пример по моей задаче? 0

@andryshka69 3 / 3 / 0 Регистрация: 26.11.2013 Сообщений: 129
	20.09.2015, 22:49 [ТС]
	Woldemar89 Спасибо,но мне больше удобен вариант ViterAlex, т.к. очень удобно менять 52000 в этом месте в программе сразу. Еще раз спасибо, очень полезная информация! 0

Работа с текстовыми переменными

Решение