kita asumsikan:
- tidak menginginkan 3 angka di setiap barisnya
- selalu diawali dengan 3 angka plus 1 spasi
- semua spasi yang tersisa di belakang baris dibuang
Hasilnya akan seperti msgbox2.jpg terlampir.
Dengan VB6,
1. Pada Project, References: tambahkan Microsoft Scripting Runtime (harus,
kalau tidak komponen FileSystemObject dan TextStream error)
2. buat form dan satu command button, copy paste code dibawah ini:
Private mFSO As New FileSystemObject
Private mts As TextStream
Private mFile1 As File
Option Explicit
Private Sub Command1_Click()
Dim vLineText As String, vTmpText As String, vText As String, _
vLen As Integer
Set mFile1 = mFSO.GetFile("C:\TextFile.txt")
Set mts = mFile1.OpenAsTextStream(ForReading)
Do While Not mts.AtEndOfStream
vLineText = Trim(mts.ReadLine)
vLen = Len(vLineText)
vTmpText = Right(vLineText, vLen - 4)
vText = vText + vTmpText
Loop
MsgBox vText
End Sub
'semoga membantu
'rgds F
Wahyu Wijanarko <[EMAIL PROTECTED]> wrote:
Dear All,
Ada yang bisa Bantu saya bagaimana script VB 6 untuk membaca file yang saya
kirim, karena records nya jadi satu tidak perline.
Thanks
Wahyu
CONFIDENTIALITY NOTICE: This communication (which term shall include any
attachments) contains information which is confidential and proprietary in
nature and the copyright in which belongs to Interpharma Asia Pacific or a
subsidiary of Interpharma Asia Pacific (hereafter referred to jointly and
singularly as Interpharma) or a third party.
This communication is intended solely for the individual to whom it is
addressed. If you are not the intended recipient of this communication, you may
not disseminate, distribute, copy or otherwise disclose or use the contents of
this communication without the written authority of Interpharma. If you have
received this communication in error, please delete and destroy all copies and
kindly notify the sender by return email or telephone immediately. Thank you.
Interpharma makes no representations or warranties in respect of the integrity
of this communication, including but not limited to any warranty that this
communication is free of errors, viruses or other malicious code, interception
or interference.
__________________________________________________________
This message has been checked for all known viruses by the MessageLabs Virus
Scanning Service. For further information, visit
http:\\www.messagelabs.com\stats.asp
----------
001 CMB
002 NBI
003 NBI & CMB
004 SSC
005 CMB & SSC
006 MAC
007 CMB & MAC
008 BII
009 CMB & BII
010 INT
011 GS1
012 GS2
013 SPI
014 JJ1
015 JJ2
016 JNJ
017 FRL
018 NIS
019 OTC
020 EIS
021 ABI
022 ABD
023 ICN
024 ULI
025 YMI
026 KFA
027 TPS
028 TMI
029 TCJ
030 DPL
031 SSL
032 GWS
033 AMR
034 UNZ
035 DPF
036 RCI
037 KFI
038 SIS
039 SNJ
040 TII
041 IDM
042 NLI
043 ATD
044 SLI
045 URC
046 KLI
047 CTA
048 CMB & ICN
049 CMB & ABI
050 CMB&SLI
051 CMB&FR
053 DGS
054 IUS
059 BYI
060 SKB
061 ABT
062 ABC
063 Reckitt Benckiser
064 Hoyu Indonesia
065 IDA
066 MJI
067 PFZ
068 PRF
[Non-text portions of this message have been removed]
---------------------------------
Bored stiff? Loosen up...
Download and play hundreds of games for free on Yahoo! Games.
[Non-text portions of this message have been removed]
