| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
跟大牛学C++学算法数据结构
共有 381 人关注过本帖
标题:求助!怎么设置VB的数据保存路径
只看楼主 加入收藏
laohuvvv
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-12-18
结帖率:100%
  已结贴   问题点数:20  回复次数:3   
求助!怎么设置VB的数据保存路径
想编一个程序卡壳了,一是四阶龙格-库塔法不知道怎么用,而是VB的打开文件路径怎么设置?保存路径怎么设置?求大神帮帮忙!
2018-12-18 16:16
紫苑星苑
Rank: 2
等 级:论坛游民
威 望:2
帖 子:12
专家分:42
注 册:2018-9-2
  得分:15 
我没太搞懂你打开文件路径设置是什么意思,是指文件操作么..?
设置路径的方法有挺多的,比如变量定义和CommonDialog控件选定,不知道你具体要哪一种.
如果是变量定义的话推荐定义全局字符串型变量,然后...
程序代码:

'添加在声明部分
Public pathi$
'添加在其他地方的...
Private Sub Form_Load()
    pathi = App.Path & "\"    '得到应用程序所在路径
End Sub
'比如你想要在程序所在路径下保存
Private Sub savedata_Click()
    Dim datas$
    datas = ...    '获取你想保存的数据
    Open (pathi & "data.txt") For Output As #1    '打开对应路径下文件(若没有对应文件将会自动生成该文件)
        Print #1,datas    '写入数据
    Close #1
End Sub


如果想玩高级一点的就用CommonDialog控件好了
关于CommonDialog的使用及添加方式可以自行百度
我具体说一下CommonDialog的路径数据获取方式
首先添加一个CommonDialog控件,为了方便命名为path_select
程序代码:

Private Sub savedata_Click()
    On Error GoTo err_slove
    dim patho$,place%
    path_select.FileName = pathi    '设定初始路径
    path_select.ShowOpen
    patho = path_select.FileName    '获取选择路径(获取到的路径是对话框最后选定的路径(包括文件名))
    If (dir(patho) <> "") Then    '如果路径/文件存在
        If ((GetAttr(patho)) <> vbDirectory) Then    '如果不为文件夹
            place = Instrrev(patho,"\")
            patho = Left(patho,Len(patho) - place)    '获取文件夹路径
        End If
    End If
    '然后是保存部分,参考上文
    Exit Sub
err_slove:
    Call Msgbox("出现了问题..." & Chr(10) & "错误编号:" & Err.Number & "错误描述:" & Err.Description,48,"Alert")
End Sub


[此贴子已经被作者于2018-12-18 19:32编辑过]


我究竟要什么时候才能变得更强啊...
2018-12-18 18:53
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:86
帖 子:859
专家分:4510
注 册:2016-5-10
  得分:5 
回复 楼主 laohuvvv
1、四阶龙格-库塔法 的用法比较多,根据用途不同,使用也不一样的,给你一个网页共参考:https://baike.sogou.com/v60604375.htm?fromTitle=%E9%BE%99%E6%A0%BC%E5%BA%93%E5%A1%94%E6%B3%95
2、VB需要打开的文件,必须是你的硬盘中已经存在的文件,那么路径就是已经存在文件的路径了。
保存文件看你自己想保存在哪里,非常灵活的,当然也应该是保存在你的硬盘中了。
例如 D:\ABC\ 就是比较简单的路径,如果需要保存在程序目录中,应该是 App.Path 。
上面仅仅说的是路径,在打开或保存时,必须有文件名,例如 "D:\ABC\ABC.txt" 或 App.Path & "\ABC.txt"。
2018-12-18 21:00
laohuvvv
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-12-18
  得分:0 
谢谢大神!保存路径已经解决。四阶龙格-库塔法已由课本解决。
2018-12-19 14:47







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041804 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved