用批處理吧
成都創(chuàng)新互聯(lián)是專業(yè)的臨翔網(wǎng)站建設(shè)公司,臨翔接單;提供網(wǎng)站建設(shè)、成都網(wǎng)站建設(shè),網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行臨翔網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!
@echo off
:1
set /p a=請(qǐng)輸入:
set /p b=請(qǐng)輸入:
type %a%\%b%
pause
cls
goto :1
只需要短短的幾句話就可以實(shí)現(xiàn)顯示文件信息了!
如果是顯示文件夾里的文件就把 type換成 dir就ok了
列:比如F盤里有一個(gè)11.txt 這個(gè)11.txt里顯示的是重要信息,那么就寫入F: 回車
然后再寫入 文件名 11.txt
就可以顯示文件內(nèi)容了
我不怎么會(huì)VB,so....
在菜單的Click事件里調(diào)用Shell函數(shù)
關(guān)于Shell的具體用法查閱MSDN吧
下邊給你個(gè)小例子
這樣就可以用記事本打開e:\test.txt這個(gè)文本文件了
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 (簡體中文版)中通過。
創(chuàng)建新項(xiàng)目:
在窗體上添加文本框2個(gè):TextBox1,TextBox2
TextBox1 -- 用來編輯要寫入的文本文件的內(nèi)容,或顯示打開的文本文件的內(nèi)容
TextBox2 -- 用來輸入要打開或要寫入的文件名(包括盤符,路徑)(例如:c:\123.txt)
在窗體上添加2個(gè)按鈕: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
補(bǔ)充:你要把讀出的數(shù)據(jù)賦值給一個(gè)變量,只要:聲明一個(gè)變量為數(shù)值類型,然后只要讀取一行就可以了,把這行數(shù)據(jù)經(jīng)過轉(zhuǎn)換成數(shù)值后賦給這個(gè)變量.
1、實(shí)現(xiàn)上傳按鈕方法代碼。
2、判斷圖片對(duì)象是否為空代碼。
3、取得數(shù)據(jù)庫字段 dt.Rows(0)("Pic")方法代碼。
4、字節(jié)數(shù)組轉(zhuǎn)換為Image類型方法代碼。
5、處理SQL中操作Image類型方法代碼。
6、實(shí)現(xiàn)的上傳結(jié)果。
1、新建一個(gè)標(biāo)準(zhǔn)的VB EXE工程,只有一個(gè)Form,F(xiàn)orm上有兩個(gè)按鈕:Command1和Command2。
2、雙擊Command1添加如下代碼
Private Sub Command1_Click()
Dim strFile? ? ?As String
Dim intFile? ? ?As Integer
Dim strData? ? ?As String
strFile = "c:\學(xué)生成績.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開始單步調(diào)試代碼,點(diǎn)擊Command1,進(jìn)入單步調(diào)試功能,
4、多次按下F8或直接按下F5運(yùn)行完成,就完成了讀取文本文件內(nèi)容并輸出到立即窗口。