重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
vb文件输出指定某个字节内容应该是以二进制读取或写入确定位置处的ASCII码值。
成都创新互联长期为成百上千客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为伊春企业提供专业的成都网站设计、网站建设,伊春网站改版等技术服务。拥有10余年丰富建站经验和众多成功案例,为您定制开发。
字节(Byte)是计算机信息技术用于计量存储容量的一种计量单位,也表示一些计算机编程语言中的数据类型和语言字符。
ASCII
美国标准信息交换码 (American Standard Code for Information Interchange) 的缩写。码值从 0 到
255,代表了字母、数字、标点符号和其他字符。ASCII 码是一种标准化的编码,用以在计算机之间或计算机与外围设备之间交换信息。
Get 语句
将一个已打开的磁盘文件读入一个变量之中。
以下代码演示二进制读取一个图片文件的某字节位置的字节值
Private Sub Command7_Click()
Dim aryContent() As Byte
Dim j As Long
Dim i As Long
Open "C:\27548.jpg" For Binary As #1
ReDim aryContent(LOF(1) - 1)
j = LOF(1)
Close #1
Debug.Print j
i = InputBox("位置i=", i)
Debug.Print aryContent(i); Hex(aryContent(i))
End Sub
Put 语句
将一个变量的数据写入磁盘文件中。
使用一个单重的循环扫描这个字符串中的所有字符,对每一个字符的出现次数进行统计,最后输出每个字符的出现次数。
Private Sub Command1_Click()
s = InputBox("请输入一个英文字符串:")
Dim a(128) As Integer
For i = 1 To Len(s)
t = Asc(Mid(s, i, 1))
a(t) = a(t) + 1
Next i
For i = 1 To 127
If a(i) 0 Then Print Chr(i); ":"; a(i)
Next i
End Sub
VB.net里有Split函数吗?
我的思路是,先寻找http://字符,然后向后寻找第一个在链接中肯定不会出现的字符,比如 ' " ; , 等等,截取中间这段就行啦
比如
doiicfur utiyo:('')bur;
先查找"http://",发现在第19个字符处(一定要注意,VB.net第一个字符的索引值下标为0,所以h是第20个字母,搜索所得到的结果就是19)
然后从19向后搜索异常字符( " ' ; , )之类,得到第二个搜索结果,将这两个结果中间的部分截取就是链接啦
两种方法:
图片框上盖个Label 向其输入内容。
载入图片,通过内存直接 DrawImage绘制个新图,然后在图上盖文字。最后赋值给图片框。
VB6的print 实质是向图片框打印文字,不管有无图都能在上面Print. 考虑速度和实现难度问题,如果纯粹显示,最好直接盖个Label最简单。第二种方法 需要考虑文字大小、颜色、坐标定位等等。如果一行文字显示不下,不会自动换行,得自己切。
Dim strFilePath As String =SaveFileDialog1.FileName
Dim sw As StreamWriter = New StreamWriter(strFilePath, True) 'true是指以追加的方式打开指定文件
For i = 0 To j
temp = i.ToString
sw.WriteLine(temp)
sw.Flush()
Next
sw.Close()
sw = Nothing
在vb2008下,form具有TransparencyKey属性,将窗体的背景色和TransparencyKey颜色设置一致时,窗体会完全透明,显示文字时,给文字不同的颜色,文字会直接显示当前屏幕之上设置form1属性,TransparencyKey=黑色,BackColor=黑色 绘制窗体的代码,给文字以不同颜色 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawString("你好", New Font("黑体", 60, FontStyle.Bold), Brushes.Blue, 0, 0)
End Sub 可以设置窗体置顶属性,永远前端显示也可以显示在桌面,用setparent,父窗体为桌面