Export แล้วไม่อยากให้มีบรรทัดว่าง

[aek]

ตามรูป คือ export มาแล้ว ส่งไปพิมพ์บาร์โค้ดอัตโนมัติ(เครื่องZebraต่ออยู่กับโปรแกรมอื่น) แต่บาร์โค้ดออกกระดาษเปล่ามาด้วย เพราะไฟล์ text สามารถกด cursor ลงมาได้(เหมือนมี2บรรทัด) ต้องการถามว่าจะทำอย่างไรให้ไฟล์ export เหลือ 1 บรรทัดจากการ export เลย (cursor อยู่ต่อท้ายบรรทัดแรก)ขอบคุณครับ

[สันติสุข]

ไม่รู้นะครับว่าเครื่องพิมพ์คุณทำงานยังไง แต่ถ้าลบบรรทัดสุดท้ายไม่ขึ้นบรรทัดใหม่ แก้ไขเองด้วยมือเลย ยังจะมีพิมพ์กระดาษเปล่าออกมาไหม

[aek]

ไม่รู้นะครับว่าเครื่องพิมพ์คุณทำงานยังไง แต่ถ้าลบบรรทัดสุดท้ายไม่ขึ้นบรรทัดใหม่ แก้ไขเองด้วยมือเลย ยังจะมีพิมพ์กระดาษเปล่าออกมาไหม

ทำแบบ อ.ว่า ทำได้ครับ ไม่มีกระดาษเปล่าออกมา แต่อาจจะไม่ค่อยสะดวกเท่าไหร่ที่ต้องคอยมาแก้ไขด้วยมือ ลองถามดูครับเผื่อจะแก้ไขได้ ขอบคุณครับ

[สันติสุข]

ผมมีโค้ดตัวนึง ลองเอาโค้ดนี้ไปใช้ดู แต่ไม่ยืนยันนะครับว่าจะถูกต้อง 100% หรือไม่

โค๊ด: [Select]

Public Sub CutLastCRLF(aFullFileNM As String)
    Dim B As String * 1
    Dim S As String
    Dim L As Long

    Open aFullFileNM For Binary Access Read As #1
    Do Until EOF(1)
        Get #1, , B
        S = S & B
    Loop
    Close #1

    If Right(S, 3) <> vbCr & vbLf & vbNullChar Then
        Exit Sub
    End If

    S = Left(S, Len(S) - 3)

    On Error Resume Next
    Kill aFullFileNM

    On Error GoTo 0
    Open aFullFileNM For Binary Access Write As #1
    Put #1, , S
    Close #1
End Sub
จะเรียกใช้ก็สั่ง Call CutLastCRLF("Drive:\Path\File.txt") มันจะเขียนทับไฟล์เดิมครับ

[aek]

ผมมีโค้ดตัวนึง ลองเอาโค้ดนี้ไปใช้ดู แต่ไม่ยืนยันนะครับว่าจะถูกต้อง 100% หรือไม่

โค๊ด: [Select]

Public Sub CutLastCRLF(aFullFileNM As String)
    Dim B As String * 1
    Dim S As String
    Dim L As Long

    Open aFullFileNM For Binary Access Read As #1
    Do Until EOF(1)
        Get #1, , B
        S = S & B
    Loop
    Close #1

    If Right(S, 3) <> vbCr & vbLf & vbNullChar Then
        Exit Sub
    End If

    S = Left(S, Len(S) - 3)

    On Error Resume Next
    Kill aFullFileNM

    On Error GoTo 0
    Open aFullFileNM For Binary Access Write As #1
    Put #1, , S
    Close #1
End Sub
จะเรียกใช้ก็สั่ง Call CutLastCRLF("Drive:\Path\File.txt") มันจะเขียนทับไฟล์เดิมครับ

ได้ตามที่ต้องการเลยครับ ขอบคุณ อ.มากๆ ครับ หาวิธีอยู่นานเลย ปลื้มปลิ่มสุดๆ