สร้าง .text เป็น Format UTF8 สามารถทำได้ไหมครับ


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

19 ต.ค. 65 , 17:15:11
อ่าน 177 ครั้ง

patipat

  • สมาชิกไท.Access
  • กระทู้: 13

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

สร้าง .text  เป็น Format  UTF8  สามารถทำได้ไหมครับ

ต้องกำหนด code อย่างไร ปกติเคยจะสร้าง .text ปกติ  (ANSI)   

ทีมเทคนิค อยากได้ .text ที่เป็น Format  UTF8


ขอบคุณมากครับ


/////////////////////////////////
ปกติที่เคยสร้าง กำหนด
Dim AAA As String
Dim BBB As Recordset

dbConnect.dbConnect

AAA = "Hello"

Print #1,  AAA 

Close #1
MsgBox "Gen Text Complete :)"




 

20 ต.ค. 65 , 13:26:51
ตอบกลับ #1

UnKnown

: สร้าง .text เป็น Format UTF8 สามารถทำได้ไหมครับ
« ตอบกลับ #1 เมื่อ: 20 ต.ค. 65 , 13:26:51 »
ตัวอย่างชุดคำสั่งส่งออก textfile utf-8
โค๊ด: [Select]
Private Sub Command12_Click()
Set strm = CreateObject("ADODB.Stream")
With strm
   .Open
   .Type = 2
   .Charset = "UTF-8"
   .WriteText "ข้อความ"
   .SaveToFile "c:\ชื่อไฟล์.txt", 2  '2 บันทึกทับไฟล์เก่าได้
   .Close
End With
MsgBox "Gen Text Complete :)"
End Sub
:ninja:     ลองคิด,ลองทำแนวคนไม่เก่งแอคเซส
หมายเหตุ เพื่อความปลอดภัยโปรดสำรองข้อมูลใว้ก่อนการแก้ไข
 
โพสต์นี้ได้รับคำขอบคุณจาก: patipat

20 ต.ค. 65 , 17:11:45
ตอบกลับ #2

patipat

  • สมาชิกไท.Access
  • กระทู้: 13

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: สร้าง .text เป็น Format UTF8 สามารถทำได้ไหมครับ
« ตอบกลับ #2 เมื่อ: 20 ต.ค. 65 , 17:11:45 »
ตัวอย่างชุดคำสั่งส่งออก textfile utf-8
โค๊ด: [Select]
Private Sub Command12_Click()
Set strm = CreateObject("ADODB.Stream")
With strm
   .Open
   .Type = 2
   .Charset = "UTF-8"
   .WriteText "ข้อความ"
   .SaveToFile "c:\ชื่อไฟล์.txt", 2  '2 บันทึกทับไฟล์เก่าได้
   .Close
End With
MsgBox "Gen Text Complete :)"
End Sub






.WriteText "ข้อความ"

ขอสอบถามเพิ่มเติม ถ้าส่วนข้อไม่ใช่ "ข้อความ" แต่เป็น   ตัวแปรที่ประกาศโมดูลไว้จะใส่ยังไงหรอครับ




ตอนนี้ผม ประกาศ Module  Write_TFB
ได้ txt ออกไป ที่  C:\HP\  ครับ แต่อยากได้ เป็น Format  UTF8



/////////////////////////////////////////////
Function PathFile() As String
PathFile = "C:\HP\"
End Function


Sub Write_TFB()
 '*************** dim TextHeader
Dim H_Prefix As String
Dim H_Contract_No As String

dbConnect.dbConnect

H_Prefix = "H"
H_Contract_No = Format(Forms!Frm!Contract_No, "0000000000")


Open PathFile & "HP_" & ".txt" For Output As #1

Print #1, H_Prefix & H_Contract_No


Close #1
MsgBox "Gen Text Complete :)"

End Sub




///////////////////////////////////////////
Code ในปุ่ม กดจากฟอร์มงานครับ

Call WriteTxt.Write_TFB
    MsgBox "finish"
   
   
    Dim Foldername As String
Foldername = "C:\HP\"





 

21 ต.ค. 65 , 11:33:31
ตอบกลับ #3

nonc31

: สร้าง .text เป็น Format UTF8 สามารถทำได้ไหมครับ
« ตอบกลับ #3 เมื่อ: 21 ต.ค. 65 , 11:33:31 »
DoCmd.TransferText acExportDelim, , "ชื่อตารางหรือคิวรี่", "C:\text.txt", True, , 65001

65001  คือ รูปแบบ UTF8
874  คือ  ไทย

 

21 ต.ค. 65 , 11:34:50
ตอบกลับ #4

UnKnown

: สร้าง .text เป็น Format UTF8 สามารถทำได้ไหมครับ
« ตอบกลับ #4 เมื่อ: 21 ต.ค. 65 , 11:34:50 »
Module  Write_TFB
Function PathFile() As String
PathFile = "C:\HP\"
End Function

Sub Write_TFB()
 '*************** dim TextHeader
Dim H_Prefix As String
Dim H_Contract_No As String
Set strm = CreateObject("ADODB.Stream")

'dbConnect.dbConnect     '<--- เครื่องผม Error เลยปิดใว้

H_Prefix = "H"
H_Contract_No = Format(Forms!Form1!Text0, "0000000000")

With strm
   .Open
   .Type = 2
   .Charset = "UTF-8"
   .WriteText H_Prefix & H_Contract_No
   .SaveToFile PathFile & "HP_" & ".txt", 2
   .Close
End With

MsgBox "Gen Text Complete :)"

End Sub


Code ในปุ่ม
Call Write_TFB
    MsgBox "finish"
'-------------------------
« แก้ไขครั้งสุดท้าย: 21 ต.ค. 65 , 18:31:57 โดย UnKnown »
:ninja:     ลองคิด,ลองทำแนวคนไม่เก่งแอคเซส
หมายเหตุ เพื่อความปลอดภัยโปรดสำรองข้อมูลใว้ก่อนการแก้ไข
 
โพสต์นี้ได้รับคำขอบคุณจาก: sjs


บอร์ดเรียนรู้ Access สำหรับคนไทย