Re: Edit text in FileListBox
Do you want every line to be formatted with 00: or just the lines with :25?
What code do you have to read the file? That's probably the place to start
Re: Edit text in FileListBox
Yep
Look at the line input and mid() functions
Re: Edit text in FileListBox
Not every line, just the lines with :25:
this is the code :
Code:
Dim pathasal As String
Dim pathhasil As String
Private Sub cmdProses_Click()
Dim fileNo As Long
Dim lineNo As Long
Dim lineText As String
Dim k As String
Open pathasal For Input As #1
Open pathhasil For Output As #2
Do Until EOF(1)
Line Input #1, lineText
p = InStr(lineText, ":25:")
If p > 0 Then
k = Left(lineText, p + 3) + "00" + Mid(lineText, p + 4)
inputan = CStr(k)
Else
inputan = CStr(lineText)
End If
Write #2, CStr(inputan)
lineNo = lineNo + 1
Loop
Close #2
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
pathasal = File1.Path + "\" + File1.FileName
a = pathasal
pathhasil = File1.Path + "\hasil.txt"
End Sub
Private Sub File1_DblClick()
Dim r As Long, msg As String
Dim str As String
If Right(Dir1.Path, 1) = "" Then
str = Dir1.Path & File1.FileName
Else
str = Dir1.Path & "" & File1.FileName
End If
Me.Caption = str
r = OpenDocument(str)
'If there is an error, the return value is
'less than or equal to 32
If r <= 32 Then
Select Case r
Case SE_ERR_FNF
msg = "File not found"
Case SE_ERR_PNF
msg = "Path not found"
Case SE_ERR_ACCESSDENIED
msg = "Access denied"
Case SE_ERR_OOM
msg = "Out of memory"
Case SE_ERR_DLLNOTFOUND
msg = "DLL not found"
Case SE_ERR_SHARE
msg = "A sharing violation occurred"
Case SE_ERR_ASSOCINCOMPLETE
msg = "Incomplete or invalid file association"
Case SE_ERR_DDETIMEOUT
msg = "DDE Time out"
Case SE_ERR_DDEFAIL
msg = "DDE transaction failed"
Case SE_ERR_DDEBUSY
msg = "DDE busy"
Case SE_ERR_NOASSOC
msg = "No association for file extension"
Case ERROR_BAD_FORMAT
msg = "Invalid EXE file or error in EXE image"
Case Else
msg = "Unknown error"
End Select
MsgBox msg
End If
End Sub
It works but it's only replace the first :25: but the next :25: does not change to :25:00
Thanks.
Andi
Re: Edit text in FileListBox
Use code tags when posting code please..
Re: Edit text in FileListBox
I have copied your code of cmdProces_click() and tested it on a file I made from your example.
It works perfectly, replacing every :25: to a :25:00, no problem.
Only two things seem to be troublesome:
When closing, you better Close the input file too. Use
Close
to close all files or
Close #1, #2
to close them explicitly.
The variables p and inputan are not declared within the sub. Do you have Option Explicit active?
The first statement of your form's code should be
Option Explicit
so as all undefined variable problems are revealed.
But this should not be the problem. Your code loop seems to work as it should.
Re: Edit text in FileListBox
Hi All,
I've the solution with textbox and command, this is the code :
Private Sub cmdProses_Click()
Dim txt
txt = TextBox.Text
If InStr(1, TextBox.Text, ":25:") > 0 Then
TextBox.Text = Replace(txt, ":25:", ":25:00")
End If
End Sub
but I have a new problem, the text after ":25:" has to be 10 digit long.
For example:
:25:0186350587
:25:186350587
:25:86350587
:25:6350587
:25:350587
:25:50587
:25:587
:25:87
:25:7
So it has to be :
:25:0186350587
:25:0186350587
:25:0086350587
:25:0006350587
:25:0000350587
:25:0000050587
:25:0000000587
:25:0000000087
:25:0000000007
but with my code it only insert two digit of zero number, so it would be :
:25:000186350587 (more than 10 digit)
:25:00186350587 (more than 10 digit)
:25:0086350587 (10 digit)
:25:006350587 (less than 10 digit)
:25:00350587 (less than 10 digit)
:25:0050587 (less than 10 digit)
:25:00587 (less than 10 digit)
:25:0087 (less than 10 digit)
:25:007 (less than 10 digit)
Would you like to help me with the new code please
Thank you
Andi.
Re: Edit text in FileListBox
Code:
Private Sub Command1_Click()
Dim P As Integer
P = InStr(Text1.Text, ":25:")
If P > 0 Then
Label1.Caption = Mid(Text1.Text, 1, P + 3) & Right(String(10, "0") & Mid(Text1.Text, P + 4), 10)
End If
End Sub
Re: Edit text in FileListBox
The code does not work when I run it.
FYI link below contain the complete of my program and sample text that I want to edit.
http://docs.google.com/leaf?id=0B8HO...ut=list&num=50
Thanks
Andi
Re: Edit text in FileListBox
"Does not work" Is not much of a description.
The code I posted does work assuming that the textbox and the label exist on your form.
Re: Edit text in FileListBox
As I said at another site... "Format" it out...
Code:
Dim My1stArray() As String, My2ndArray() As String, S As String
Dim LB As Integer, UB As Integer, LoopCnt As Integer
S = ":25:0186350587,:25:186350587,:25:86350587,:25:6350587,:25:350587,:25:50587,:25:587,:25:87,:25:7"
My1stArray = Split(S, ",")
LB = LBound(My1stArray)
UB = UBound(My1stArray)
For LoopCnt = LB To UB
My2ndArray = Split(My1stArray(LoopCnt), ":25:")
Debug.Print ":25:" & Format(My2ndArray(1), "0000000000")
Next LoopCnt
Good Luck
