Ĺadny brzuch
witam
przerobiłem skrypt do zamiany tabelki z CALCa openoficeowskiego na kod w formacie media wiki. problem w tym że wcześniej ten skrypt wrzucał wszystko do oddzielnego pliku odt z którego trzeba było przekopiować gotowy kod z mediawiki. mi chodzi o przekopiowanie kodu odrazu schowka, bez tworzenia obiektu WRITEa openoffisowskiego.
aha, string może zawierać znak Chr(13) czyli tzw. enter (przejście do nowej lini. znalazłem w necie zwykłe funkcje wrzucania do schowka ale one tylko kopiują string do pierwszego wystąpienia znaku enter.
chyba że ktoś ma inny pomysł jak to rozwiazać
przykładowy string wyglada tak:
{| class="wikitable" ! kolumna 1, wiersz 1 ! kolumna 2, wiersz 1 |- | kolumna 1, wiersz 2 | kolumna 2, wiersz 2 |- | kolumna 1, wiersz 3 | kolumna 2, wiersz 3 |}
da sie zapisać wszystkie wiersze w jednym stringu ale nie da sie ich skopiować. próbowałem kopiować to tą funkcja:
Global sTxtCString As String Sub clipboard_1 sText = "123456" CopyToClipBoard(sText) End Sub Sub CopyToClipBoard( sText ) ' create SystemClipboard instance oClip = CreateUnoService( _ "com.sun.star.datatransfer.clipboard.SystemClipboard") oTR = createUnoListener("Tr_", _ "com.sun.star.datatransfer.XTransferable") ' set data oClip.setContents(oTR,Null) sTxtCString = sText 'oClip.flushClipboard() ' does not work End Sub
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
przerobiłem skrypt do zamiany tabelki z CALCa openoficeowskiego na kod w formacie media wiki. problem w tym że wcześniej ten skrypt wrzucał wszystko do oddzielnego pliku odt z którego trzeba było przekopiować gotowy kod z mediawiki. mi chodzi o przekopiowanie kodu odrazu schowka, bez tworzenia obiektu WRITEa openoffisowskiego.
aha, string może zawierać znak Chr(13) czyli tzw. enter (przejście do nowej lini. znalazłem w necie zwykłe funkcje wrzucania do schowka ale one tylko kopiują string do pierwszego wystąpienia znaku enter.
chyba że ktoś ma inny pomysł jak to rozwiazać
przykładowy string wyglada tak:
{| class="wikitable" ! kolumna 1, wiersz 1 ! kolumna 2, wiersz 1 |- | kolumna 1, wiersz 2 | kolumna 2, wiersz 2 |- | kolumna 1, wiersz 3 | kolumna 2, wiersz 3 |}
da sie zapisać wszystkie wiersze w jednym stringu ale nie da sie ich skopiować. próbowałem kopiować to tą funkcja:
Global sTxtCString As String Sub clipboard_1 sText = "123456" CopyToClipBoard(sText) End Sub Sub CopyToClipBoard( sText ) ' create SystemClipboard instance oClip = CreateUnoService( _ "com.sun.star.datatransfer.clipboard.SystemClipboard") oTR = createUnoListener("Tr_", _ "com.sun.star.datatransfer.XTransferable") ' set data oClip.setContents(oTR,Null) sTxtCString = sText 'oClip.flushClipboard() ' does not work End Sub