หน้าหลัก
ข่าวสาร - บทความ ทั้งหมด
VB 6/VB.Net
ASP/ASP.Net
จับฉ่ายคอมพิวเตอร์
เรียนรู้ผ่าน Flash Movie
บทความที่มีผู้ตอบล่าสุด  
 RSS Feeds
 ดาวน์โหลดโปรแกรม RSS Reader ได้ที่นี่ ...   Download โปรแกรม RSS Reader

กระดานข่าวสาร เว็บบอร์ด - www.g2gnet.com
ดาวน์โหลดฟรีโปรแกรม และ Free Souce Code ได้ที่นี่ ...
รู้จักกับเว็บมาสเตอร์ - www.g2gnet.com
::: โปรแกรมมาใหม่ :::
โปรแกรมพิมพ์สติ๊กเกอร์บาร์โค้ด - Barcode Sticker
โปรแกรมพิมพ์สติ๊กเกอร์บาร์โค้ด - Barcode Sticker
โปรแกรมไปรษณีย์ และ จุดชำระค่าบริการ (iPayPost Software)
โปรแกรมไปรษณีย์ และ จุดชำระค่าบริการ
โปรแกรมจุดรับชำระค่าบริการ (iPayLite Software)
โปรแกรมจุดรับชำระค่าบริการ
::: BarcodeSoft :::
::: Printing :::
โปรแกรมพิมพ์รหัสบาร์โค้ด - BarcodeSoft Printing
โปรแกรมรหัสไปรษณีย์ทั่วไทย
::: G2GNet PostCode :::
!!!!! แจกฟรี !!!!!
ดาวน์โหลดโปรแกรมรหัสไปรษณีย์ทั่วไทย G2GNet PostCode Thailand
Visitors - Session views
 3 5 6 2 1 2 0

7 ธันวาคม พ.ศ.2549
132 Users On-Line.
Visitors - Page views
 6 2 5 3 0 5 2
1 กุมภาพันธ์ พ.ศ.2551

Google   
เว็บ g2gnet.com
ขนาดตัวอักษร:  
    ดาวน์โหลด และ แนะนำวิธีการติดตั้ง Active Report Professional 2.0
    แจกฟรี Source Code โปรแกรมขายสินค้า - Point Of Sale (โดย เว็บมาสเตอร์-ทองก้อน
    แจกฟรี Source Code การพิมพ์ใบกำกับภาษี - Active Report 2.0 (โดย ctx-9000@hotmail.com)
    SourceCode การดึงข้อมูลมาแสดงผลลงใน SharpGrid (โดย dos_network@hotmail.com)
    แจกฟรี Source Code VB6+Access โปรแกรมฐานข้อมูลครุภัณฑ์
    แจกโปรแกรมดูทีวี ดูหนัง ฟังวิทยุ ฟังเพลงออนไลน์ - G2GnetTV On Line ... ฟรีๆๆๆๆ
          ข้อมูลสถานี/รายการ (XML)  ข้อมูลสถานี/รายการ (HTML)
โปรแกรมระบบบัญชี Profit - Account

การใช้ Text File นำมาเก็บข้อมูลเป็น Logging file

Category »  VB 6/VB.Net
โดย : Webmaster เมื่อ 5/11/2549 11:11:00
(อ่าน : 11850)/(ตอบ : 5)  ข้อคิดเห็น   |   พิมพ์   |  

ในงานอุตสาหกรรมบางอย่าง ที่ต้องใช้คอมพิวเตอร์เป็นตัวประมวลผล เพื่อให้เครื่องจักรทำงานตามวันเวลาที่ได้ตั้งเอาไว้ หรือ เพื่อการเก็บข้อมูลของการเกิด Error เอาไว้ และอื่นๆอีก จำเป็นต้องมีการบันทึกเหตุการณ์ต่างๆเอาไว้ทำการตรวจสอบความผิดพลาด พอดีลูกศิษย์ท่านนึง ได้เข้ามาสอบถามว่าโปรแกรมที่โรงงานเขาทำอยู่มีโปรแกรมใช้งานที่เขียนมาจาก VB อยากจะให้บอกวิธีทำ Logging เอาไว้ให้หน่อย ผมก็เลยลองมาก๊อกๆแก๊กๆดู เพราะตัวผมเองจะถนัดมากกว่า เมื่อเขียน VB หนักไปทางด้านฐานข้อมูลน่ะครับ.


อันดับแรกต้องเลือกปุ่ม CommandButton จาก Toolbox มา 1 ตัว และ ในงานชิ้นนี้ผมเลือกเอา Control อีกตัวก็คือ RichTextBox มาเพื่อทำการแสดงผลด้วย คุณสามารถเลือกได้จาก Project --> Components --> Microsoft Rich TextBox Control ดังรูปครับผม


เพราะ Code ของเราต้องอ้างถึง Script ด้วย จากนั้นต้องเลือก Project --> Reference --> Microsoft Scripting Runtime มิฉะนั้น Error แน่ครับท่าน




Option Explicit

Private Sub Command1_Click()

Dim MyFSO As New FileSystemObject, MyTextFile

Dim txtStream As TextStream

' เคลียร์ Rich TextBox Control ก่อน

RichTextBox1.Text = ""

'

If Dir(App.Path & "\Log.Txt") = "" Then ' กรณีที่ค้นหาไม่เจอ จะทำการสร้างไฟล์ชื่อ Log.txt ขึ้นมาใหม่

    Set MyTextFile = MyFSO.CreateTextFile(App.Path & "\Log.txt", False)
    MyTextFile.Write ("ไฟล์นี้ถูกสร้างเมื่อ ") & Now & vbCrLf
    MyTextFile.Close

    MsgBox "ไม่พบไฟล์ที่คุณต้องการ...."
Else

    Set MyTextFile = MyFSO.GetFile(App.Path & "\Log.Txt")
    Set txtStream = MyTextFile.OpenAsTextStream(ForAppending) ' เมื่อเจอไฟล์ที่ต้องการก็ทำการบันทึกข้อมูลลงไปต่อท้ายไฟล์เลย

    txtStream.WriteLine (Now)
    txtStream.Close
End If

'
' นำไปแสดงผลออกที่ RichTextBox1

RichTextBox1.LoadFile MyTextFile

End Sub


จากนั้นทำการ Run โปรแกรมด้วยการกด
F5....แล้วกดปุ่ม Command1

ลองเอาไปประยุกต์ใช้งานดูน่ะครับ


ร่วมแสดงความคิดเห็น

[ความเห็นที่:  1] จากคุณ : คนผ่านทาง เมื่อ 20/3/2551 16:02:38  IP: 124.120.144.5

ยอดมากครับ ผมหามานานแล้ว ตายตาหลับซักที

[ความเห็นที่:  2] จากคุณ : อ้อย เมื่อ 11/9/2551 16:05:57  IP: 58.64.106.79

 txtStream.WriteLine (Now)
คือให้เก็บเวลาปัจจุบันใน Log.txt ใช่ไหมคะ
แล้วถ้าต้องการให้เก็บข้อมูล ใน RichTextBox1.Text   จะใช้ฟังก์ชั่น  txtStream.WriteLine  ในรูปแบบยังไงคะ รบกวนด้วยนะคะตอบทางเมลล์ก็ได้นะคะ 
dwdotman@hotmail.com

[ความเห็นที่:  3] จากคุณ : เอ็ม เมื่อ 19/9/2551 15:08:12  IP: 203.127.151.119

มีอีกไหม ดีมากมาก

[ความเห็นที่:  4] จากคุณ : นัน เมื่อ 8/6/2552 10:58:52  IP: 203.170.255.45

ดีมากๆ เลยค่ะ

[ความเห็นที่:  5] จากคุณ : หมาขาว เมื่อ 31/7/2552 14:27:31  IP: 125.27.197.229

สามารถนำมาใช้เก็บ Log File ได้ใช่ไหมครับ แล้วสามารถเก็บเข้า Databaseได้ไหมครับ
พอดีว่าออกแบบ Database ไม่เป็น


ก่อนการคลิ๊กโพสต์ข้อความ ขอความกรุณาใช้ถ้อยคำที่สุภาพด้วยครับ เว็บไซต์แห่งนี้เป็นแหล่งเผยแพร่ความรู้ ดังนั้นสำหรับท่านที่พยายามจะป่วนเว็บไซต์ หากท่านเป็น "คนไทย" เช่นเดียวกันกับผม ก็ขอความกรุณาได้โปรดเห็นใจ "คนไทย" อีกจำนวนไม่น้อย ที่เข้ามาขอความช่วยเหลือ จากเว็บไซต์ของผมด้วยน่ะครับ และหากท่านใดไม่เข้าใจในตรงจุดไหน ก็ขอให้ระบุสิ่งที่อยากจะถามออกมา บทความของผมแทบทั้งหมดต้องอาศัยทักษะการปฏิบัติเป็นหลัก ดังนั้นขอให้ดู และ ทดสอบจากโค้ดโปรแกรมประกอบตามไปด้วย
IP Address: 54.204.249.184
ชื่อของคุณ:

ข้อคิดเห็น:

5 + 3 = ?  (กรุณาป้อนคำตอบลงในช่องด้านล่างให้เป็น ภาษาไทย ตามผลบวกของตัวเลขให้ถูกต้องก่อนด้วยน่ะครับ เช่น ศูนย์)
  


จี ทู จี เน็ต ดอต คอม - g2gNet Dot Com
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์ 0407314800231
Copyright © 2005 g2gNet.Com All rights reserved.
Email: thongkorn@hotmail.com หรือ โทร. 08-6862-6560