![]() ![]() This example is good, but there is a problem because it is in series. I tried something like this REM ***** BASIC *****ĭim FilterNames(1,2) As String, sResult As String, sPath As String, sEncoding$, namer$, indexFile$, endFile$, count$, sFileName$, sUrl$, oSFA as object, oStream as object, oTextStream as object, s$ Msgbox("line: " & Erl & chr(13) & Err & ": " & Error, 16, "saveStringToFile") OStream.closeOutput() : oTextStream.closeOutput() 'close outputs ![]() OTextStream.writeString(s) 'write the string to the file ![]() OStream=oSFA.openFileWrite(sUrl) 'open for write If oSFA.exists(sFileName) then 'file exists so delete one OTextStream=CreateUnoService(".TextOutputStream") OSFA=CreateUnoService(".SimpleFileAccess") Sub saveStringToFile 'write the string to the fileĭim sEncoding$, sFileName$, sUrl$, oSFA as object, oStream as object, oTextStream as object, s$ And then write the string to the file by the TextStream. In Basic you can use the sheet function getDataArray() and create the string from the array in some loop (for…next, do…while etc.). ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |