Dim sBuffer As String Dim nPos As Long Open "c:\a.txt" For Input As #1 sBuffer = Input(LOF(1), 1) Close #1 nPos = InStr(sBuffer, "!" & vbCrLf & "!" & vbCrLf & "end") If nPos Then Open "C:\b.txt" For Output As #1 Print #1, Left$(sBuffer, nPos + 8); Close #1 End If
if instr(t, "!") > 0 then t = left(t, instr(t, "!") -1) end if
! ! end
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question! ! end
interface vlan 8 ip address 192.168.1.1 255.0.0.0 ! ! end zefkzrjgfjgrjigreed"é("'-è''vc-bv-è-(*rfgeerg gergtrrth trhtr
interface vlan 8 ip address 192.168.1.1 255.0.0.0 ! ! end
tachaine = left(tachaine, instr(tachaine, "end") +3)
interface vlan 8
ip address 192.168.1.1 255.0.0.0
!
!
end
! ! end
"!" & vbCrLf & "!" & vbCrLf & "end"
if instr(t, "!" & vbcrlf & "!" & vbcrlf & "end") > 0 then t = left(t, instr(t, "!" & vbcrlf & "!" & vbcrlf & "end") -1) end if
! ! end
Public Function Degage(sFile As String) Dim FF As Integer FF = FreeFile Dim sBuffer As String Open sFile For Input As #FF sBuffer = Input(LOF(FF), 1) Close #FF If InStr(sBuffer, "!" & vbCrLf & "!" & vbCrLf & "end") > 0 Then sBuffer = Left(sBuffer, InStr(sBuffer, "!" & vbCrLf & "!" & vbCrLf & "end") - 1) End If Close #FF FF = FreeFile Open sFile For Output As #FF Print #FF, sBuffer Close #FF End Function
Dim sBuffer As String Dim nPos As Long Open "c:\a.txt" For Input As #1 sBuffer = Input(LOF(1), 1) Close #1 nPos = InStr(sBuffer, "!" & vbCrLf & "!" & vbCrLf & "end") 'Trouver la position de la chaine lenn = len("!" & vbCrLf & "!" & vbCrLf & "end") 'récupérer la longueur de la chaine If nPos Then Open "C:\b.txt" For Output As #1 Print #1, Left$(sBuffer, lenn); 'récupérer le texte avant la position trouver + la chaine Close #1 End If