texbox copy/past

[idd]

Приведите пожалуста пример вставки скопированного из текстбокса текста
начало наверное такое

Код: Выделить всё

Private Sub Label1_Click()
On Error Resume Next
Clipboard.Clear
Clipboard.SetText Label1.Caption, _
vbCFText
End Sub

в созданный ткстшник и с последующим сохранением этого файла с заданным расширением (нужно xml)
Спасибо

[Хакер]

Задачу полностью опиши.

[idd]

будет прога для создания теста. представлять из себя будет что-то вроде 5 форм с привязанными к ним тегами и кнопки. Соот-но в 1-ю форму копируется вопрос, в остальные варианты ответов и по нажатию кнопки должен создаваться txt-файл и в него из форм копироваться текст (соот-но между тегами привязанными к формам), а потом это файл должен сохраняться с расширением xml.

[Хакер]

Зачем нужно создавать txt-файл, а потом его сохраняться как xml-файл, если можно сразу же создавать xml-файл?

Остальное было понято с трудом. В целом, было понято, что уровень знаний низок даже для таких ерундовых заданий.

[idd]

Получилось пока что-то типо этого

Код: Выделить всё

Dim i As String
Dim b As String
Dim var1 As String
Dim var2 As String
Dim var3 As String
Dim var4 As String
Dim var5 As String
Dim a As String
Dim k As String
Dim l As String

Dim per As Single






Private Sub Form_Load()
Open "C:\vopros.txt" For Input As #1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub

Private Sub knopka_Click()

per = per + 1


Line Input #1, i
Text1 = i
Line Input #1, b
Text2 = b
Line Input #1, var1
Text3 = var1
Line Input #1, var2
Text4 = var2
Line Input #1, var3
Text5 = var3
Line Input #1, var4
Text6 = var4
Line Input #1, var5
Text7 = var5

k = """"
l = "<?xml version=" & k & "1.0" & k & " encoding=" & k & "UTF-16" & k & "?> <question complexity=" & k & "2" & k & ">"
Text9 = l
y = "<theme>" & i & "</theme>"
Text8 = y
m = "<authors year=" & k & "2008" & k & "/>"
Text10 = m
z = "<conditions>" & b & "</conditions>"
Text11 = z
n = "<solution/>"
Text12 = n
h = "<choice multiple=" & k & "no" & k & ">"
Text19 = h
x = "<variant valid=" & k & "true" & k & " mark=" & k & "1" & k & " index=" & k & "0" & k & ">" & var1 & "</variant>"
Text13 = x
w = "<variant valid=" & k & "false" & k & " mark=" & k & "0" & k & " index=" & k & "1" & k & ">" & var2 & "</variant>"
Text14 = w
t = "<variant valid=" & k & "false" & k & " mark=" & k & "0" & k & " index=" & k & "2" & k & ">" & var3 & "</variant>"
Text15 = t
p = "<variant valid=" & k & "false" & k & " mark=" & k & "0" & k & " index=" & k & "3" & k & ">" & var4 & "</variant>"
Text16 = p
s = "<variant valid=" & k & "false" & k & " mark=" & k & "0" & k & " index=" & k & "4" & k & ">" & var5 & "</variant>"
Text17 = s
o = " </choice>"
Text18 = o
j = "</question>"
Text20 = j
Open "C:\" & per & ".xml" For Output As #2
Print #2, l
Print #2, y
Print #2, m
Print #2, z
Print #2, n
Print #2, h
Print #2, x
Print #2, w
Print #2, t
Print #2, p
Print #2, s
Print #2, o
Print #2, j
Close #2
End Sub

Вопрос в следующем как добиться того чтобы текст в файле сохранялся в формате utf-16?
иначе при запуске этого xml файла появляется ошибка

Код: Выделить всё

Переключение с текущей кодировки на указанную не поддерживается. Ошибка при обработке ресурса ''file:///C:/1.xml''. Строка...

<?xml version="1.0" encoding="UTF-16"?> <question complexity="2">
---------------------------------------^


Тело xml-документа менять нельзя, для экспорта там должен стоять именно utf-16.

[Денис]

idd, надо изучить работу с парсерами xml и подключить один из парсеров к проекту.
файловыми операциями работать неэффективно. попробуйте msxml для начала (как всегда, в references)