Erstellen eine Datei mit Trennzeichen Tab von ASP
Microsoft hat eine eigene Programmiersprache--ASP, steht für Active Server Pages. Diese Anwendung, die innerhalb von IIS (Internet Information Services), eine kostenlose Komponente von bestimmten Microsoft-Betriebssystemen wie Windows 2000 und Windows NT 4.0 ausgeführt wird. Für verschiedene Projekte, wie z. B. Erstellen von Berichten und Erstellen von Web-Seiten können Sie ASP. ASP kann Elemente wie HTML-Tags und Skripts enthalten, so es sehr flexibel und einfach zu bedienen ist.
Anweisungen
1 Führen Sie Microsoft Visual Studio NET. Zeigen Sie im Menü Datei auf "Neu" und dann auf "Projekt". Wenn das Dialogfeld Neues Projekt erscheint, klicken Sie auf "Visual Basic-Projekt" aus den Projekttypen, und klicken Sie dann unter Vorlagen "ASP-Webanwendung".
2 Geben Sie im Feld Name "ExcelVBTest", und klicken Sie auf den entsprechenden Server im Feld Speicherort. Lassen Sie den Namen des Servers als "http://localhost,", wenn Ihre Dateien auf Ihrem lokalen Server untergebracht sind, und klicken Sie auf "OK". Ziehen Sie ein "HyperLink"-Steuerelement aus der Toolbox auf das Web-Formular in der Datei "WebForm1.aspx". Maustaste auf die Datei "WebForm1.aspx", und klicken Sie auf "Code anzeigen", um den Quellcode des Projekts anzeigen.
3 Fügen Sie den folgenden Code am Anfang der Seite:
Imports System.Data
System.Data.Common importiert
Imports System.Data.SqlClient
Imports System.IO
Imports System.Text
Und fügen Sie dann den nachfolgenden Code zum Ereignis "Page_Load":
Dim i As Integer
Dim StrLine As String, Dateiname, Dateipfad, Verbindung, fileExcel
Dim ObjFileStream As FileStream
Dim ObjStreamWriter As StreamWriter
Dim nRandom als Random = New Random(DateTime.Now.Millisecond)
Dim fs As Object, MyFile As Object
Dim Cnn As SqlConnection = New SqlConnection ("Server (lokal) =; Datenbank = Kneipen;" & _
"Integrated Security=SSPI")
' Einen pseudo-zufälligen Dateinamen zu erstellen.
FileExcel = "t" & nRandom.Next(). ToString() & ".xls"
"Legen Sie einen virtuellen Ordner zum Speichern der Datei.
"Stellen Sie sicher, dass Sie den Namen der Anwendung entsprechend Ihrem Ordner ändern.
FilePath = Server.MapPath("\ExcelVBTest")
FileName = FilePath & "\" & FileExcel
"Verwenden von FileStream die XLS-Datei zu erstellen.
ObjFileStream = New FileStream(fileName, FileMode.OpenOrCreate, FileAccess.Write)
ObjStreamWriter = New StreamWriter(objFileStream)
' Einen DataReader zum Herstellen einer Verbindung mit der Pubs-Datenbank verwenden.
CNN. Open()
Dim Sql As String = "wählen Sie Au_id, Au_lName, auFname, Telefon," &
"address,city,state,zip,contract from authors"
Dim Cmd As SqlCommand = New SqlCommand(sql, cnn)
Dim dr als SqlDataReader
Dr = cmd. ColumnName
' Aufzählen, die Feldnamen und die Datensätze, die zum Erstellen der Datei verwendet werden.
Für i = 0 To dr. FieldCount - 1
StrLine = StrLine & dr. GetName(i). ToString & Chr(9)
Nächste
"Die Informationen in Datei schreiben.
objStreamWriter.WriteLine(strLine)
' Die Zeichenfolge für die Daten neu zu initialisieren.
StrLine = ""
' Aufzählen die Datenbank, die verwendet wird, um die Datei zu füllen.
Während dr. Read()
Für i = 0 To dr. FieldCount - 1
strLine = strLine & dr.GetValue(i) & Chr(9)
Nächste
objStreamWriter.WriteLine(strLine)
StrLine = ""
EndWhile
"Clean up.
Dr. Close()
CNN. Close()
objStreamWriter.Close()
objFileStream.Close()
' Einen Link auf die Excel-Datei anzeigen.
HyperLink1.Text = "Offene Excel"
HyperLink1.NavigateUrl = FileExcel
4 Klicken Sie auf "Alle speichern" im Menü Datei, um die Projektdateien zu speichern. Klicken Sie auf "Build", um das Projekt im Menü Erstellen in der Visual Studio NET integrierte Entwicklungsumgebung zu erstellen. Maustaste auf das Formular "WebForm1.aspx" im Visual Studio NET integrierte Entwicklung Umwelt Projektmappen-Explorer, und führen Sie den Code, indem Sie auf "View in Browser".
Tipps & Warnungen
- Microsoft bietet kostenlose online-Tutorials über die Nutzung von ASP und Visual Basic. Darüber hinaus begleiten Sie Diskussionsforen um Beratung und Anleitung von erfahrenen ASP-Benutzern suchen können.