VFP怎么新建一个TXT文件并传递内容

VFP如何新建一个TXT文件并传递内容
正常我们如果需要临时用TXT文件记录一些内容的操作是:

1、运行 记事本
2、输入内容

现在,想通过程序来完成1和 2的动作,至于2输入的内容,必须程序传递, 是否保存由用户决定,也就是说,我不要创建一个保存的文件,只是新建,并传递一些内容。

VFP代码怎么写 ?

------解决思路----------------------
pp = sys(5) + sys(2003)
ff = forcepath('test.txt', pp)
strtofile('abcd', ff)
run/n notepad "&ff"

------解决思路----------------------
strtofile()
filetostr()
帮助文件中有,自己研究一下吧
------解决思路----------------------
楼上几位的代码是很简练的
为什么非要拘泥生成文件呢
最后可以删除的嘛

下面的代码试试看
没有临时文件生成

[code=vb][/
*!* 功能 : 从剪贴板粘贴文字到记事本.

Clear
Run /N2 Notepad.Exe
lcStr = "我想把这些文字粘贴文字到记事本"
_Cliptext = lcStr
*!* =Inkey(1)
? PasteToNotepad()


Function PasteToNotepad()

    #Define WM_CUT     0x300
    #Define WM_COPY    0x301
    #Define WM_PASTE   0x302
    #Define WM_CLEAR   0x303
    #Define WM_UNDO    0x304
    #Define GW_CHILD   5

    Declare Long FindWindowA In WIN32API String Class, String Title
    Declare Integer SendMessage In Win32API Integer HWnd,Integer Msg, Short WParam, Integer Lparam
    Declare Integer GetWindow In win32api Integer ncurr_window_handle, Integer ndirection

    Local Child, HWnd, RetVal, vbNullString
    vbNullString = Null

    *!* HWnd = FindWindow("aaa.txt - 记事本", vbNullString)  && 如果你打开的是 : aaa.txt 文件名
    HWnd = FindWindow("Notepad", vbNullString)  && 粘贴到 : 记事本
    Child = GetWindow(HWnd, GW_CHILD)

    RetVal = SendMessage(Child, WM_PASTE, 0, 0)
    If RetVal = 0
        Messagebox("粘贴到记事本失败!" + Chr(13), "粘贴文字到记事本")
    Else
        Messagebox("粘贴到记事本成功!" + Chr(13) + ;
            "最大化你的记事本," + Chr(13) + ;
            "看看是不是成功了?", "粘贴文字到记事本")
    Endif

    Return

Endfunc


code]

相关内容推荐