json文件用vb如何打开代码(VB 打开文件代码)
本文目录
- VB 打开文件代码
- VB json解析代码
- 【VB.NET】这个json怎么解析用的是Newtonsoft.Json.dll
- VB打开文件的代码该怎么写
- Visual Studio 2013 vb 怎么处理JSON数据
- vb打开“代码”窗口有几种方法
VB 打开文件代码
使用系统API函数ShellExecute实现打开文件。执行后会调用与要打开文件扩展名关联的程序打开这个文件。
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Form_click()ShellExecute(Me.hwnd, "open", "z:\test.txt", "", "", 1)End sub
函数参数及意义:ShellExecute(hWnd: HWND; {指定父窗口句柄}Operation: PChar; {指定动作, 譬如: open、runas、print、edit、explore、find }FileName: PChar; {指定要打开的文件或程序}Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文件这里应该是 nil}Directory: PChar; {缺省目录}ShowCmd: Integer {打开选项}): HINST;ShowCmd 参数可选值:SW_HIDE = 0; {隐藏}SW_SHOWNORMAL = 1; {用最近的大小和位置显示, 激活}SW_NORMAL = 1; {同 SW_SHOWNORMAL}SW_SHOWMINIMIZED = 2; {最小化, 激活}SW_SHOWMAXIMIZED = 3; {最大化, 激活}SW_MAXIMIZE = 3; {同 SW_SHOWMAXIMIZED}SW_SHOWNOACTIVATE = 4; {用最近的大小和位置显示, 不激活}SW_SHOW = 5; {同 SW_SHOWNORMAL}SW_MINIMIZE = 6; {最小化, 不激活}SW_SHOWMINNOACTIVE = 7; {同 SW_MINIMIZE}SW_SHOWNA = 8; {同 SW_SHOWNOACTIVATE}SW_RESTORE = 9; {同 SW_SHOWNORMAL}SW_SHOWDEFAULT = 10; {同 SW_SHOWNORMAL}SW_MAX = 10; {同 SW_SHOWNORMAL}WIN8系统调用此函数打开文件无效。
VB json解析代码
使用字符处理函数,自己写代码吧,提供思路:先是用split函数,分段,然后使用instr,mid等函数提取你要的字符串!
【VB.NET】这个json怎么解析用的是Newtonsoft.Json.dll
先如下程序集
Imports System.Web.Script.Serialization Function StringToObject(content As String) As Object Dim jss As New JavaScriptSerializer() Return jss.DeserializeObject(content) End Function Dim test1 As Dictionary(Of String, Object) = StringToObject("{ " & Chr(34) & "objects" & Chr(34) & ": { " & Chr(34) & "minecraft/sounds/entity/rabbit/attack2.ogg" & Chr(34) & ": { " & Chr(34) & "hash" & Chr(34) & ": " & Chr(34) & "4b90ff3a9b1486642bc0f15da0045d83a91df82e" & Chr(34) & ", " & Chr(34) & "size" & Chr(34) & ": 7268 }, " & Chr(34) & "minecraft/sounds/entity/shulker/close5.ogg" & Chr(34) & ": { " & Chr(34) & "hash" & Chr(34) & ": " & Chr(34) & "e555fcece121879fe0becbada9d01dea27ab153d" & Chr(34) & ", " & Chr(34) & "size" & Chr(34) & ": 5376 }, " & Chr(34) & "minecraft/lang/ga_IE.lang" & Chr(34) & ": { " & Chr(34) & "hash" & Chr(34) & ": " & Chr(34) & "a108f19142820b3573a658d40950ba3317b65c15" & Chr(34) & ", " & Chr(34) & "size" & Chr(34) & ": 142847 }, " & Chr(34) & "minecraft/sounds/mob/horse/leather.ogg" & Chr(34) & ": { " & Chr(34) & "hash" & Chr(34) & ": " & Chr(34) & "20abaa7d3b0baa105bc6023d5308f1e5d76acc41" & Chr(34) & ", " & Chr(34) & "size" & Chr(34) & ": 11577 }}}") Dim cc As Dictionary(Of String, Object) = DirectCast(test1.Values(0), Dictionary(Of String, Object)) Dim dd = cc.Values(0)("hash")
这样就可以遍历 hash值了
VB打开文件的代码该怎么写
方法一:用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无法获取:Private Sub Command1_Cliack()Dim sA As String * 65400 ’声明定长String变量 Open "F:\d.txt" For Binary As #1 ’用二进制打开文件Get #1, , sA ’用Get语句从文件中获取字节Text1 = sA ’显示打开的文件Close #1 ’关闭文件End Sub方法二:先声明一字符串变量,然后用空格填充字符串,使变量大小与文件大小一致,再通过Get语句将文件全部数据存储到变量中,从而达到获取整个文件字节数的目的。此法可以打开大于32K的文件,但应该注意的是,装载文件的容器必须能装载大于32K的文件,下例用RichTextBox控件显示打开的文件:Private Sub Command1_Click() Dim sA As StringOpen "f:\d.txt" For Binary As #1sA = Space(LOF(1)) ’用空格填充sA变量Get #1, , sA ’用Get语句获取文件全部内容RichTextBox1.Text = sAClose #1End Sub
Visual Studio 2013 vb 怎么处理JSON数据
定义一个和它类型结构完全一致的类,然后反序列化。定义一个结构不一致的类也可以,关键是写上一两行代码进行json反序列化。反序列化之后,如果你的对象的某个属性(或者字段)在json中有对应的内容,那么就能从你的.net内存对象里读取出来这个值。
vb打开“代码”窗口有几种方法
1、双击窗体或其中的控件;2、按键盘的F7;3、右击窗体或其中的控件,选择“查看代码”;4、右击“工程资源管理器”(即软件右上角的小窗口),选择“查看代码”5、点击“视窗”—点击“代码窗口”。
更多文章:
联想thinkpad x300(联想thinkpadx300案例分析)
2024年7月11日 16:16
三星s5660怎么连接电脑(三星s5660怎么连接电脑主机)
2024年7月19日 16:16