OpenOffice.info

Code: Alles auswählen

Statement = Connection.createStatement()
ResultSet1 = Statement.executeQuery("SELECT indexs, beschreibung_"+s+" FROM indexs, texte where indexs.indexid = texte.indexid and texte.texteid = '"+textid+"'")
oMyDoc = StarDesktop.CurrentComponent

If Not IsNull(ResultSet1) Then
While ResultSet1.next
Cursor = oMyDoc.Text.createTextCursor()
Cursor.gotoEnd(false)
Table = oMyDoc.createInstance("com.sun.star.text.TextTable")
Table.Initialize(2,1)
oMyDoc.Text.insertTextContent(Cursor, Table, False)
Cell = Table.getCellByPosition(0,0)
Cell.String = ResultSet1.getString(1)+" "+ResultSet1.getString(2)
Wend
End If
ResultSet = Statement.executeQuery("SELECT text_"+s+" FROM texte where texteid = '"+textid+"'")
If Not IsNull(ResultSet) Then
While ResultSet.next
Cell = Table.getCellByPosition(0,1)
Cell.String = ResultSet.getString(1)
Cursor.gotoEnd(false)
oMyDoc.Text.insertControlCharacter(Cursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
Wend
End If

Code: Alles auswählen

Dim Source As String
Dim Search As String
Dim NewPart As String
Dim Result As String
Dim StartPos As Long
Dim CurrentPos As Long
Source = CStr(ResultSet.getString(1))
Search = chr(10)
NewPart = "" 
Result = ""
StartPos = 1
CurrentPos = 1
Do While CurrentPos <> 0
CurrentPos = InStr(StartPos, Source, Search)
If CurrentPos <> 0 Then
Result = Result + Mid(Source, StartPos, _
CurrentPos - StartPos)
Result = Result + NewPart
StartPos = CurrentPos + Len(Search)
Else
Result = Result + Mid(Source, StartPos, Len(Source))
End If ' Position <> 0
Loop