Как я могу получить фактические значения поля списка или параметра раскрывающегося списка из этого HTA в текстовый файл? ⇐ Html

[Anonymous]

Я хотел бы изменить этот сценарий 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