Я хотел бы изменить этот сценарий vb, чтобы я мог добавлять значения, выбранные из раскрывающегося списка, чтобы он также отправлял данные в текстовый файл, как например.
Текстовый файл должен отображать, например:
Username = value
Email = value
Title = value
Company = value
Product = value
country = option selected
region = option selected
Приведенный ниже сценарий взят с этого сайта, но датирован 2007 годом:
Как сохранить информацию в HTA в виде файла значений, разделенных табуляцией
VBSCRIPT
Sub SaveData
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\temp\Test.txt") Then
Set objFile = objFSO.OpenTextFile("C:\temp\Test.txt", 8)
strLine = "username=" & UserName.Value & vbCRLF & "Email=" & Email.Value & vbCrLf & _
"Title=" & Title.Value & vbCRLF & "Company=" & Company.Value & vbCRLF & "Product=" & Product.Value
objFile.WriteLine strLine
objFile.Close
Else
Set objFile = objFSO.CreateTextFile("C:\temp\Test.txt")
strLine = "username=" & UserName.Value & vbCRLF & "Email=" & Email.Value & vbCrLf & _
"Title=" & Title.Value & vbCRLF & "Company=" & Company.Value & vbCRLF & "Product=" & Product.Value
objFile.WriteLine strLine
objFile.Close
End If
End Sub
HTML
COUNTRY
uk
usa
etc
etc
REGION
west midlands
south west
etc
etc
ОБНОВЛЕНИЕ №1
Ниже приведен полный код HTA для пояснения.
Save as txt File
Index
Подробнее здесь: https://stackoverflow.com/questions/798 ... -from-this
Как я могу получить фактические значения поля списка или параметра раскрывающегося списка из этого HTA в текстовый файл? ⇐ Html
Программисты Html
1769204153
Anonymous
Я хотел бы изменить этот сценарий vb, чтобы я мог добавлять значения, выбранные из раскрывающегося списка, чтобы он также отправлял данные в текстовый файл, как например.
Текстовый файл должен отображать, например:
Username = value
Email = value
Title = value
Company = value
Product = value
country = option selected
region = option selected
Приведенный ниже сценарий взят с этого сайта, но датирован 2007 годом:
Как сохранить информацию в HTA в виде файла значений, разделенных табуляцией
[b]VBSCRIPT[/b]
Sub SaveData
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\temp\Test.txt") Then
Set objFile = objFSO.OpenTextFile("C:\temp\Test.txt", 8)
strLine = "username=" & UserName.Value & vbCRLF & "Email=" & Email.Value & vbCrLf & _
"Title=" & Title.Value & vbCRLF & "Company=" & Company.Value & vbCRLF & "Product=" & Product.Value
objFile.WriteLine strLine
objFile.Close
Else
Set objFile = objFSO.CreateTextFile("C:\temp\Test.txt")
strLine = "username=" & UserName.Value & vbCRLF & "Email=" & Email.Value & vbCrLf & _
"Title=" & Title.Value & vbCRLF & "Company=" & Company.Value & vbCRLF & "Product=" & Product.Value
objFile.WriteLine strLine
objFile.Close
End If
End Sub
[b]HTML[/b]
COUNTRY
uk
usa
etc
etc
REGION
west midlands
south west
etc
etc
[b]ОБНОВЛЕНИЕ №1[/b]
Ниже приведен полный код HTA для пояснения.
Save as txt File
Index
Подробнее здесь: [url]https://stackoverflow.com/questions/79874035/how-can-i-get-the-actual-values-of-a-list-box-or-dropdown-list-option-from-this[/url]
Ответить
1 сообщение
• Страница 1 из 1
Перейти
- Кемерово-IT
- ↳ Javascript
- ↳ C#
- ↳ JAVA
- ↳ Elasticsearch aggregation
- ↳ Python
- ↳ Php
- ↳ Android
- ↳ Html
- ↳ Jquery
- ↳ C++
- ↳ IOS
- ↳ CSS
- ↳ Excel
- ↳ Linux
- ↳ Apache
- ↳ MySql
- Детский мир
- Для души
- ↳ Музыкальные инструменты даром
- ↳ Печатная продукция даром
- Внешняя красота и здоровье
- ↳ Одежда и обувь для взрослых даром
- ↳ Товары для здоровья
- ↳ Физкультура и спорт
- Техника - даром!
- ↳ Автомобилистам
- ↳ Компьютерная техника
- ↳ Плиты: газовые и электрические
- ↳ Холодильники
- ↳ Стиральные машины
- ↳ Телевизоры
- ↳ Телефоны, смартфоны, плашеты
- ↳ Швейные машинки
- ↳ Прочая электроника и техника
- ↳ Фототехника
- Ремонт и интерьер
- ↳ Стройматериалы, инструмент
- ↳ Мебель и предметы интерьера даром
- ↳ Cантехника
- Другие темы
- ↳ Разное даром
- ↳ Давай меняться!
- ↳ Отдам\возьму за копеечку
- ↳ Работа и подработка в Кемерове
- ↳ Давай с тобой поговорим...
Мобильная версия