Konu: rtf to txt
Selamlar;
Oluşturduğum bir rtf memo alanı txt dosyaya nasıl çevirebilirim.
Bilmediğin Neyse Yanıldığındır.
- mrduyar
- Uzman Üye
- Offline
- ugurlu2001
- Uzman Üye
- Offline
Re: rtf to txt
Visual Fox Pro
*!* Çetin Başöz Code
*!* http://www.foxite.com/archives/0000239054.htm
Create Cursor myData (c1 m Null, c2 m Null, c3 m Null)
oWord = Createobject('Word.Application')
oWord.Documents.Open(getfile('DOC'))
oTable = oWord.Activedocument.Content.Tables(1)
For Each oRow In oTable.Rows
Insert Into myData Values ;
(oRow.Cells(1).Range.Text, ;
oRow.Cells(2).Range.Text,;
oRow.Cells(3).Range.Text)
Endfor
oWord.Quit()
Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü
- ugurlu2001
- Uzman Üye
- Offline
Re: rtf to txt
Kodun kaynağını hatırlamıyorum
Farklı bir örnek
Public Code - Not mine
*!* This is sample code. Add error handling and adjust to your requirements as necessary
Visual Fox Pro
TEXT TO lcRtf NOSHOW PRETEXT 15
{\rtf1\par
\trowd \trgaph30\trleft-30\trrh262\cellx980\cellx1991\cellx3001
\intbl \qr \f0\fs20 \cf 1\cell \qr 2\cell\qr 3\cell \intbl \row
\trowd \trgaph30\trleft-30\trrh262\cellx980\cellx1991\cellx3001
\intbl \qr \f0\fs20 \cf 4\cell \qr 5\cell\qr 6\cell \intbl \row}
ENDTEXT
? CopyRtfText2Clipboard(lcRtf)
&& Copy RTF text into Clipboard
FUNCTION CopyRtfText2Clipboard(tcRtfText)
LOCAL lnDataLen, lcDropFiles, llOk, i, lhMem, lnPtr, lcRtfText, lnRtfFormat
&& Global Memory Variables with Compile Time Constants
#DEFINE GMEM_MOVABLE 0x0002
#DEFINE GMEM_ZEROINIT 0x0040
#DEFINE GMEM_SHARE 0x2000
&& Load required Windows API functions
=LoadApiDlls()
llOk = .T.
lcRtfText = tcRtfText + CHR(0)
lnDataLen = LEN(lcRtfText)
&& Copy text into the allocated memory
lhMem = GlobalAlloc(GMEM_MOVABLE+GMEM_ZEROINIT+GMEM_SHARE, lnDataLen+4)
lnPtr = GlobalLock(lhMem)
=CopyFromStr(lnPtr, @lcRtfText, lnDataLen)
=GlobalUnlock(lhMem)
&& Open clipboard and store RTF text into it
llOk = (OpenClipboard(0) <> 0)
IF llOk
=EmptyClipboard()
lnRtfFormat = RegisterClipboardFormat("Rich Text Format")
llOk = (SetClipboardData(lnRtfFormat, lhMem) <> 0)
&& If call to SetClipboardData() is successful, the system will take ownership of the memory
&& otherwise we have to free it
IF NOT llOk
=GlobalFree(lhMem)
ENDIF
&& Close clipboard
=CloseClipboard()
ENDIF
RETURN llOk
FUNCTION LoadApiDlls
&& Clipboard Functions
DECLARE LONG OpenClipboard IN WIN32API LONG HWND
DECLARE LONG CloseClipboard IN WIN32API
DECLARE LONG EmptyClipboard IN WIN32API
DECLARE LONG SetClipboardData IN WIN32API LONG uFormat, LONG hMem
DECLARE LONG RegisterClipboardFormat IN WIN32API STRING lpszFormat
&& Memory Management Functions
DECLARE LONG GlobalAlloc IN WIN32API LONG wFlags, LONG dwBytes
DECLARE LONG GlobalFree IN WIN32API LONG HMEM
DECLARE LONG GlobalLock IN WIN32API LONG HMEM
DECLARE LONG GlobalUnlock IN WIN32API LONG HMEM
DECLARE LONG RtlMoveMemory IN WIN32API As CopyFromStr LONG lpDest, String @lpSrc, LONG iLen
RETURN
RETURN
Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü
- mrduyar
- Uzman Üye
- Offline
Re: rtf to txt
teşekkürler.
Bilmediğin Neyse Yanıldığındır.