Создание переменных из данных в строке(string)

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Shiz
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 02.08.2004 (Пн) 13:47
Откуда: Moscow

Создание переменных из данных в строке(string)

Сообщение Shiz » 14.08.2004 (Сб) 1:58

Вопрос такой:
Имеется некоторая строка
s="NameOfPer=1234"
Нужно присвоить переменной до знака "=" (NameOfPer) значение после знака "=" (1234). Заранее спасибо за помощь!!!
Shiz

Approximator
Постоялец
Постоялец
 
Сообщения: 572
Зарегистрирован: 26.06.2004 (Сб) 3:10

Re: Создание переменных из данных в строке(string)

Сообщение Approximator » 14.08.2004 (Сб) 5:30

Shiz писал(а):Вопрос такой:
Имеется некоторая строка
s="NameOfPer=1234"
Нужно присвоить переменной до знака "=" (NameOfPer) значение после знака "=" (1234). Заранее спасибо за помощь!!!

Желательнее знать не имя переменной, а её адрес, тогда можно было бы просто скопировать необходимое значение в эту область.
Если же переменная это чьё-нить свойство, тогда попробуй посмотреть CallByName
С уважением, Approximator.

Tin
Woodsman
Woodsman
Аватара пользователя
 
Сообщения: 1001
Зарегистрирован: 08.12.2001 (Сб) 11:00
Откуда: Kazakhstan

Сообщение Tin » 14.08.2004 (Сб) 7:34

Вообщем хочешь тип языка програмирования сделать... Все с той нятно... Ну есть иди как это сделать...
1. Создаешь тип:
private type PEREMENNIE
Name as string
Value as string ' или поставишь что-нить другое - сам додумывай
end type
'создаем массив виртуальных переменных, допустим штук 100
dim Per(100) as Peremennie
dim PCount as integer 'кол-во прописаных переменных
Private sub Form_Load()
PCount=0
end sub
Private Sub Command1_click()
rem Допустим ты открыл текстовый файл построчно... И строки _
'лежат в массиве A(100)
for i=0 to 100
if mid(a(i),1,4)="Dim " then
rem Объявляем виртуальную переменую
per(pcount).name=mid(a(i),4,len(a(i)))
pcount=pcount+1
else
rem Какие-то другие операции с перемеными
'определяем имя рабочей переменой (к какой приравнивается)
for i1=0 to pcount-1
if mid(a(i),1, len(per(i1).name))=per(i1).name then
'ну и т.д..., :roll:
end if
next
end if
next
end sub
888888__88__88____88
__88________8888__88
__88____88__88__8888
__88____88__88____88

Shiz
Начинающий
Начинающий
 
Сообщения: 14
Зарегистрирован: 02.08.2004 (Пн) 13:47
Откуда: Moscow

Сообщение Shiz » 14.08.2004 (Сб) 12:08

Спасибо!
Shiz

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 14.08.2004 (Сб) 14:04

Только лучше переменные в таком случае не в массиве хранить, а в коллекции :-)

Cyrax
Cyberninja
Cyberninja
Аватара пользователя
 
Сообщения: 891
Зарегистрирован: 25.04.2002 (Чт) 21:20
Откуда: Magnitogorsk, Russia

Сообщение Cyrax » 14.08.2004 (Сб) 14:06

tyomitch писал(а):Только лучше переменные в таком случае не в массиве хранить, а в коллекции :-)
угу... а ключи коллекции бдут имена переменных :)
Ты это ему расскажи. Я уже пять болтов отвинтил, и конца не видно... (озадаченно) А это в какую сторону тянуть? Ну-ка... Ага, этот был лишний, этот вообще не отсюда, и этот... Точно, два болта.

Welcome to IRC

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 14.08.2004 (Сб) 16:32

Cyrax писал(а):
tyomitch писал(а):Только лучше переменные в таком случае не в массиве хранить, а в коллекции :-)
угу... а ключи коллекции бдут имена переменных :)
угу... именно так :-)

Tin
Woodsman
Woodsman
Аватара пользователя
 
Сообщения: 1001
Зарегистрирован: 08.12.2001 (Сб) 11:00
Откуда: Kazakhstan

Сообщение Tin » 16.08.2004 (Пн) 6:37

Ну мое слово идея, а как это будет реализовано - эт уже другой вопрос...
888888__88__88____88
__88________8888__88
__88____88__88__8888
__88____88__88____88


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 1

    TopList