|
[XSL-LIST Mailing List Archive Home] [By Thread] [By Date] [Recent Entries] [Reply To This Message] Re: Open Source - Excel to XML Converter
Sorry, I missed the subject line. We can fix that ;-) Visual basic class to write to a text file, name this clXFile: <code><![*CDATA*[ Private fno As Integer Private eno As Long Function xOpen(fs As String)
fno = FreeFile(0)
Open fs For Output As #fno
eno = Err.Number
xOpen = eno
End Function
Property Let xRec(val As String)
Print #fno, val
End Property
Property Get ErrorNo() As Long
ErrorNo = eno
End PropertySub xClose() Close fno fno = 0 End Sub ]]></code> Usage:
<code><![*CDATA*[
...
Dim er As Long
Dim ux As New clXFile
er = ux.xOpenOut(fname)
er = ux.xOpenOut(fname)
If (er = 0) Then
ux.xRec() = "<root>"
ux.xRec() = "<row>...</row>"
....
Call ux.xClose
End If
]]></code>Bryce K. Nielsen wrote: Not very OpenSource, like the OP requested ;-)
|
PURCHASE STYLUS STUDIO ONLINE TODAY!Purchasing Stylus Studio from our online shop is Easy, Secure and Value Priced! Download The World's Best XML IDE!Accelerate XML development with our award-winning XML IDE - Download a free trial today! Subscribe in XML format
|






