13518219792
用批处理吧
成都创新互联是专业的临翔网站建设公司，临翔接单;提供网站建设、成都网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行临翔网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
@echo off
:1
set /p a=请输入:
set /p b=请输入:
type %a%\%b%
pause
cls
goto :1
只需要短短的几句话就可以实现显示文件信息了!
如果是显示文件夹里的文件就把 type换成 dir就ok了
列:比如F盘里有一个11.txt 这个11.txt里显示的是重要信息,那么就写入F: 回车
然后再写入 文件名 11.txt
就可以显示文件内容了
我不怎么会VB,so....
在菜单的Click事件里调用Shell函数
关于Shell的具体用法查阅MSDN吧
下边给你个小例子
这样就可以用记事本打开e:\test.txt这个文本文件了
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
Shell("notepad e:\test.txt")
End Sub
说明：以下代码在Microsoft Visual Basic 2005 （简体中文版）中通过。
创建新项目：
在窗体上添加文本框2个：TextBox1，TextBox2
TextBox1 -- 用来编辑要写入的文本文件的内容，或显示打开的文本文件的内容
TextBox2 -- 用来输入要打开或要写入的文件名（包括盘符，路径）（例如：c:\123.txt）
在窗体上添加2个按钮：Button1，Button2
Button1 -- 写入文件
Button2 -- 打开文件
代码如下：
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim w As New StreamWriter(TextBox2.Text)
w.Write(TextBox1.Text)
w.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim r As New StreamReader(TextBox2.Text)
Dim s As String
TextBox1.Text = ""
Do While r.Peek -1 '是否到文件尾
s = r.ReadLine
' MessageBox.Show(r.Peek)
TextBox1.Text = TextBox1.Text s vbCrLf
Loop
r.Close()
End Sub
End Class
补充:你要把读出的数据赋值给一个变量,只要:声明一个变量为数值类型,然后只要读取一行就可以了,把这行数据经过转换成数值后赋给这个变量.
1、实现上传按钮方法代码。
2、判断图片对象是否为空代码。
3、取得数据库字段 dt.Rows(0)("Pic")方法代码。
4、字节数组转换为Image类型方法代码。
5、处理SQL中操作Image类型方法代码。
6、实现的上传结果。
1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。
2、双击Command1添加如下代码
Private Sub Command1_Click()
Dim strFile As String
Dim intFile As Integer
Dim strData As String
strFile = "c:\学生成绩.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8开始单步调试代码，点击Command1，进入单步调试功能，
4、多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。
