, . ACCESS xml POST . txt ( ), , txt log. , , xml Access. , , . ANSI utf-8. 1 txt VBA. , xml , -, , , .
.
1 Private Sub check_etr_Click()
2 On Error GoTo Err_check_etr_Click
3 Set objXml = CreateObject("Msxml2.XMLHTTP")
4 Set objXmlDoc = CreateObject("MSXML2.DOMDocument")
5 Dim rs As Recordset
6 Dim doc As String, ccode As String, x As String, y As String, my_rc As String
7 Dim rc_int As Integer, rc_full As Double, z As Integer
8 Set rs = CurrentDb.OpenRecordset("check_entered_cards")
9 If rs.RecordCount > 0 Then
10 rs.MoveFirst
11 Do While Not rs.EOF
12 mycart = "
" & rs("card_code") & "" & mycart
13 rs.MoveNext
14 Loop
15 End If
16 strXML = "" & _
17 "
" & _
18 mycart & _
19 "" & _
20 Open "D:\c_info_list_exp.txt" For Output As #1
21 Print #1, (strXML)
22 Close #1
23 objXml.Open "POST", "
http://000.000.000.000:81/UCS/SOAP/SOAP.php?xml_data=" & strXML, False
24 objXml.send (strXML)
25 Open "D:\c_info_list.txt" For Output As #1
26 Print #1, strXML
27 Close #1
28 FileCopy "D:\c_info_list.txt", "D:\c_info_list" & ".xml"
29 ImportXML "D:\c_info_list.xml"
30 Exit_check_etr_Click:
31 Exit Sub
32 Err_check_etr_Click:
33 MsgBox Err.description
34 Resume Exit_check_etr_Click
35 End Sub
http://www.sql.ru/forum/1155649/izmenenie-kodirovki-txt-fayla
