VB如何把变量保存到文件?
VB\u5982\u4f55\u628a\u53d8\u91cf\u4fdd\u5b58\u5230\u6587\u4ef6?\u8fd9\u4e2a\u95ee\u9898\u6d89\u53ca\u5230\u6570\u636e\u7ed3\u6784\u548c\u4e8c\u8fdb\u5236\u6587\u4ef6\u3002
\u9996\u5148\u4f60\u8981\u77e5\u9053\u53d8\u91cf\u7684\u7ed3\u6784\uff1a
\uff08\u628a\u4e0d\u5b9a\u957f\u5ea6\u7684\u5b57\u7b26\u4e32\u548c\u6570\u503c\u53d8\u91cf\u4e00\u8d77\u5b58\u50a8\u4f1a\u6bd4\u8f83\u590d\u6742\u4e00\u4e9b\uff09
Byte\u7c7b\u578b 1Byte
Integer\u7c7b\u578b 2Byte
Long\u7c7b\u578b 4Byte
Single\u7c7b\u578b 4Byte
Double\u7c7b\u578b 8Byte
\u5047\u5982\u60a8\u6709\u8fd9\u4e48\u51e0\u4e2a\u53d8\u91cf\uff1a
Dim lngIndex As Long '4Byte
Dim intValue As Integer '2Byte
Dim bytMaps(0 to 9) As Byte '10Byte
\u5b58\u50a8\u4e0a\u9762\u7684\u8fd9\u4e9b\u53d8\u91cf\u662f\u8fd9\u6837\u7684\uff1a
Open "1.dat" For Binary as #1
Put #1,1,lngIndex
Put #1,5,intValue
Put #1,7,bytMaps()
Close#1
\u8bfb\u53d6\u5219\u662f\uff1a
Open "1.dat" For Binary as #1
Get #1,1,lngIndex
Get #1,5,intValue '\u5730\u5740=1+4=5
Get #1,7,bytMaps() '\u5730\u5740=5+2=7
Close#1
Get\u548cPut\u683c\u5f0f\u90fd\u662f\uff1a
Get(\u6216Put) #\u6587\u4ef6\u53e5\u67c4\u53f7,\u5b57\u8282\u5730\u5740(\u4ece1\u5f00\u59cb),\u53d8\u91cf
\u60a8\u5fc5\u987b\u6e05\u695a\u53d8\u91cf\u7684\u5b57\u8282\u957f\u5ea6\uff0c\u5e76\u8ba1\u7b97\u51fa\u4e0b\u4e00\u5730\u5740\u7684\u4f4d\u7f6e\u3002\u5982\u679c\u60a8\u5728\u7b2c\u4e00\u5b57\u8282\u5199\u4e00\u4e2a4\u5b57\u8282\u7684\u53d8\u91cf\uff0c\u800c\u60a8\u53c8\u5728\u7b2c\u4e8c\u5b57\u8282\u5199\u4e00\u4e2a\u540c\u6837\u662f4\u5b57\u8282\u7684\u53d8\u91cf\uff0c\u5219\u4f1a\u628a\u4e4b\u524d\u90a3\u4e2a\u53d8\u91cf\u7684\u6570\u503c\u7834\u574f\u6389\u3002\u6b63\u786e\u7684\u65b9\u6cd5\u662f\uff1a\u5982\u679c\u60a8\u5728\u7b2c\u4e00\u5b57\u8282\u5199\u4e86\u4e00\u4e2a4\u5b57\u8282\u53d8\u91cf\uff0c\u5219\u4e0b\u4e00\u4e2a\u53d8\u91cf\u5728\u7b2c5\u5b57\u8282\u5f00\u59cb\u5199\u3002
\u4ee5\u4e0a\u662f\u6700\u7b80\u5355\u7684\u539f\u7406\uff0c\u4f46\u8ba1\u7b97\u5730\u5740\u5f88\u9ebb\u70e6\u3002\u65b9\u4fbf\u7684\u529e\u6cd5\u662f\u5efa\u7acb\u4e00\u4e2a\u6570\u636e\u7ed3\u6784\u3002
\uff08\u4ee5\u4e0b\u4ee3\u7801\u9700\u8981\u5728\u4e00\u4e2a\u6a21\u5757\u91cc\u5efa\u7acb\u3002\uff09
Type MyData
lngIndex As Long
intValue As Integer
bytMaps(0 to 9) As Byte
End Type
\u63a5\u7740\u5c31\u53ef\u4ee5\u7528\u7ed3\u6784\u6765\u5b58\u50a8\u6570\u636e\u3002
Dim tData As MyData
tData.lngIndex=lngIndex
tData.intValue=intValue
tData.bytMaps()=bytMaps()
Open "1.dat" For Binary as #1
Put #1,1,tData
Close#1
Open "1.dat" For Binary as #1
Get #1,1,tData
Close#1
\u5e26\u7ed3\u6784\u7684\u53d8\u91cf\u4f7f\u7528\u8d77\u6765\u975e\u5e38\u65b9\u4fbf\uff0c\u5982\u679c\u60a8\u53ea\u5b58\u53d6\u4e00\u7ec4\uff0c\u5219\u4e0d\u7528\u8ba1\u7b97\u5730\u5740\u3002\u5982\u679c\u60a8\u8981\u5b58\u53d6\u4e24\u7ec4\u540c\u6837\u7c7b\u578b\u7684\u7ed3\u6784\u53d8\u91cf\uff0c\u5219\u60a8\u9700\u8981\u8ba1\u7b97\u51fa\u8fd9\u4e2a\u7ed3\u6784\u7684\u957f\u5ea6\uff0c\u7136\u540e\u6309\u4e0a\u9762\u7684\u529e\u6cd5\u8ba1\u7b97\u5730\u5740\u5c31\u53ef\u4ee5\u4e86\u3002
\u7531\u4e8e\u7bc7\u5e45\u5173\u7cfb\uff0c\u4ee5\u4e0a\u53ea\u662f\u5927\u6982\u7ed9\u60a8\u8bb2\u4e00\u4e0b\u539f\u7406\uff0c\u60a8\u5e94\u5f53\u4ed4\u7ec6\u5b66\u4e60\u4e00\u4e0b\u5173\u4e8e\u4e8c\u8fdb\u5236\u6587\u4ef6\u3001\u6570\u636e\u7c7b\u578b\u548cType\u7684\u7528\u6cd5\u3002\u867d\u7136\u4e8c\u8fdb\u5236\u6587\u4ef6\u548c\u6570\u636e\u7ed3\u6784\u4f3c\u4e4e\u6709\u70b9\u590d\u6742\uff0c\u4f46\u5b66\u4f1a\u5b83\u4f1a\u4f7f\u60a8\u53d7\u76ca\u83f2\u6d45\u3002
\uff08\u5982\u679c\u60a8\u8981\u7ec3\u4e60\u8fd9\u4e2a\u77e5\u8bc6\uff0c\u6bd4\u8f83\u6709\u8da3\u7684\u4e00\u4e2a\u7528\u9014\u662f\u4fee\u6539\u6e38\u620f\u5b58\u6863\uff09
Ucase\u662f\u5c06\u6240\u6709\u5c0f\u5199\u5b57\u6bcd\u8f6c\u6362\u6210\u5927\u5199\u5b57\u6bcd\uff0c\u5927\u5199\u5b57\u6bcd\u4e0d\u53d8\uff1b
Lcase\u662f\u5c06\u6240\u6709\u5927\u5199\u5b57\u6bcd\u8f6c\u6362\u6210\u5927\u5199\u5b57\u6bcd\uff0c\u5c0f\u5199\u5b57\u6bcd\u7ef4\u6301\u4e0d\u53d8\u3002
\u4f8b\u5982\uff1a
strA = "AbcDeFg"
strB = UCase(strA) '\u90a3\u4e48strB\u5c31\u662f\u201cABCDEFG\u201d
strC = LCase(strA) '\u90a3\u4e48strC\u5c31\u662f\u201cabcdefg\u201d
If LCase(Label1.Caption) LCase(Text1.Text) Then '\u8fd9\u53e5\u7684\u610f\u601d\u662f\u5224\u65ad\u6807\u7b7eLabel1\u7684\u663e\u793a\u6587\u5b57(Caption)\u548c\u6587\u672c\u6846Text1\u5185\u7684\u6587\u5b57\u662f\u5426\u76f8\u540c\uff0c\u8fd9\u91cc\u8868\u793a\u5982\u679c\u4e0d\u76f8\u540c\uff0c\u90a3\u4e48
Label1.Caption = Text1.Text '\u5c06Text1\u91cc\u9762\u7684\u6587\u5b57\u8d4b\u503c\u7ed9Label1.Caption\u5c5e\u6027\uff0c\u90a3\u4e48\u8fd9\u4e2a\u65f6\u5019Label1\u5c31\u663e\u793a\u4e3aText1\u91cc\u9762\u7684\u6587\u5b57\u3002
'打开/创建一个文本文件，准备写入
Open "d:\test.txt" For Output As #1
'向文件中写入用户名和密码
Print #1, Text1.Text
Print #1, Text2.Text
Close #1
End Sub
Private Sub Form_Load()
'屏蔽错误，即使在第一次运行时没有该文件，也不会影响程序云行
On Error Resume Next
'打开一个文本文件，准备读取
Open "d:\test.txt" For Input As #1
'读取第一行
Line Input #1, inputdata
Text1.Text = inputdata
'读取第二行
Line Input #1, inputdata
Text2.Text = inputdata
Close #1
End Sub
'点按钮保存
Private Sub Command1_Click()
SaveSetting "sub1", "sub2", "name", txtname.Text
SaveSetting "sub1", "sub2", "pass", txtpass.Text
End Sub
'程序起动自动加载
Private Sub Form_Load()
txtname.Text = GetSetting("sub1", "sub2", "name", "")
txtpass.Text = GetSetting("sub1", "sub2", "pass", "")
End Sub
'文本改变时自动保存
Private Sub Tetpass_Change()
Call Command1_Click
End Sub
Private Sub txtname_Change()
Call Command1_Click
End Sub
绛旓細Text1.Text = ReadIniFile(strIniFileName, "閰嶇疆淇℃伅", "灞炴т竴")Text2.Text = ReadIniFile(strIniFileName, "閰嶇疆淇℃伅", "灞炴т簩")End Sub Private Sub Form_Unload(Cancel As Integer)Dim strIniFileName As String strIniFileName = App.Path & "\test.ini"' 绐椾綋鍏抽棴鏃讹紝鑷姩淇濆瓨涓や釜...
绛旓細Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Pri...
绛旓細1+鍥炶溅 2+鍥炶溅 3+鍥炶溅 杩欐牱淇濆瓨锛岀劧鍚庤鍙鏂囦欢鍐呭鍒颁竴涓鍙橀噺涓紝鐢╯plit 鍙橀噺锛寁bcrlt鍗冲彲銆
绛旓細鏂板缓涓涓枃鏈鏂囨。锛灏浠ヤ笅浠ｇ爜澶嶅埗鍒版枃鏈枃妗ｉ噷闈紝骞舵敼鍚嶄负form1.frm锛岀敤vb6.0鎵撳紑form1.frm锛岃繍琛屼箣銆傘傘傛垜鎸夌収浣犵殑瑕佹眰缁欐敼浜嗕竴涓嬶紝浣犲湪绗竴涓枃鏈閲岃緭鍏 鏈灏忓(姣斿浣犺鐨10)銆傚湪绗簩涓枃鏈閲岃緭鍏ユ渶澶у(姣斿浣犺鐨99)锛岀偣涓涓嬪啓鍏ワ紝鐒跺悗浣犲埌e:\test.txt 鐪嬬湅鏄笉鏄綘瑕佺殑缁撴灉...
绛旓細Dim XX As String '鍚姩Excel Set excel_App = CreateObject("Excel.Application")'璁剧疆Excel涓哄彲瑙 excel_App.Visible = False '鎵撳紑鏂囦欢 Set excel_Book = excel_App.Workbooks.Open(App.Path & "\鏂囦欢鍚.XLS")'杩欎釜瀵逛綘鏄叧閿--鎶婃暟鎹〃"Sheet1"绗1琛岀1鍒楃殑鍊淇濆瓨鍒板彉閲XX閲 XX = excel...
绛旓細淇濆瓨鍦txt涓垨鑰呮敞鍐岃〃 杩欎釜鏄繚瀛 Open "D:\1.txt" For Append As #1 '鎵撳紑鏂囦欢璺緞瑕佹敼 Write #1, a '淇濆瓨鍙橀噺a Close #1 杩欎釜鏄繚璇诲彇 Open "D:\1.txt" For Input As #1 '鎵撳紑鏂囦欢璺緞瑕佹敼 Line Input #1, a '璇诲彇鍙橀噺a Close #1 '鍏抽棴鏂囦欢 ...
绛旓細'鍙栧嚭涓嬩竴涓彲鐢鏂囦欢缂栧彿銆FileNum = FreeFile '鐢 Open 璇彞鎵撳紑鏂版枃浠躲侽pen "MYFILE.FIL" For Random As FileNum Len = RecLength 缂栬緫闅忔満鍨嬭闂墦寮鐨勬枃浠 濡傝缂栬緫闅忔満鍨嬭闂殑鏂囦欢锛岃鍏堟妸璁板綍浠庢枃浠惰鍒扮▼搴忓彉閲忥紝鐒跺悗鏀瑰彉鍚勫彉閲忕殑鍊硷紝鏈鍚庯紝鎶婂彉閲鍐欏洖璇ユ枃浠躲傚悗闈㈠悇鑺傝璁濡備綍缂栬緫闅忔満鍨...
绛旓細姣斿灏嗗彉閲A鍦绐楀彛鍏抽棴鏃瀛樺叆 Private Sub Form_Unload(Cancel As Integer)鈥欑獥鍙ｇ殑鍗歌浇浜嬩欢open app.path & "\123.ini" for output as #1 '鍦ㄧ▼搴忓綋鍓嶈矾寰勪笅鍒涘缓涓涓猧ni鏂囦欢锛堟祴璇曠殑鏃跺欒鍏堢敓鎴恊xe鍚﹀垯浼氬嚭閿欙級骞惰鍙橀噺a鐨勬暟鎹瀛樺偍杩涘幓print #1,aclose #1End SubPrivate Sub Form_Load()on ...
绛旓細VB涓瑕鍌ㄥ瓨淇℃伅鏄氳繃澶栭儴鏂囦欢鍐欏叆鐨勶紝杩欐秹鍙婂埌璇诲啓鏂囦欢鐨勯棶棰樸傛垜灏辩畝鍗曞湴鏁欎綘涓涓嬭鍐欓殢鏈烘枃浠跺惂銆傞鍏堬紝鍏堝畾涔変竴涓暟鎹被鍨嬶紝璀锛歵ype xinxi qudong as string mulu as string wenjian as string end type 鐒跺悗锛屽畾涔変竴涓鍙橀噺涓轰互涓婄殑鏁版嵁绫诲瀷锛屽锛歞im kk as xinxi 鐒跺悗锛屽湪绋嬪簭鍏抽棴涔嬪墠灏椹卞姩...
绛旓細' 淇濆瓨鏂囦欢鍒鎸囧畾璺緞 ws.Copy With ActiveWorkbook .SaveAs folderPath & fileName & fileExtension .Close False End With End Sub 鍦浣跨敤姝や唬鐮佷箣鍓嶏紝璇风‘淇灏ws鍙橀噺涓殑宸ヤ綔琛ㄥ悕绉版洿鏀逛负鎮ㄩ渶瑕佷繚瀛樼殑宸ヤ綔琛ㄥ悕绉般傛浠ｇ爜灏嗘牴鎹瓺3鍗曞厓鏍肩殑鍐呭鍒涘缓鏂囦欢澶锛堝鏋滀笉瀛樺湪锛夛紝鐒跺悗灏嗗伐浣滆〃鍙﹀瓨涓鸿鏂囦欢澶...
