Elimina un Item de un Array
#Region " Remove Item From Array "
' [ Remove Item From Array ]
'
' Examples :
' Dim MyArray() As String = {"Elektro", "H@cker", "Christian"}
' Remove_Item_From_Array(MyArray, 0) ' Remove first element => {"H@cker", "Christian"}
' Remove_Item_From_Array(MyArray, UBound(MyArray)) ' Remove last element => {"Elektro", "H@cker"}
Public Sub Remove_Item_From_Array(Of T)(ByRef Array_Name() As T, ByVal Index As Integer)
Array.Copy(Array_Name, Index + 1, Array_Name, Index, UBound(Array_Name) - Index)
ReDim Preserve Array_Name(UBound(Array_Name) - 1)
End Sub
#End Region
Concatena un array, con opción de enumerarlo...
#Region " Join Array "
' [ Join Array Function ]
'
' // By Elektro H@cker
'
' Examples :
' Dim MyArray() As String = {"Hola", "que", "ase?"}
' MsgBox(Join_Array(MyArray, vbNewLine))
' MsgBox(Join_Array(MyArray, vbNewLine, True))
Private Function Join_Array(ByRef Array_Name As Array, ByVal Separator As String, _
Optional ByVal Enumerate As Boolean = False) As String
Try
If Enumerate Then
Dim Index As Int64 = 0
Dim Joined_str As String = String.Empty
For Each Item In Array_Name
Joined_str += Index & ". " & Item & Separator
Index += 1
Next
Return Joined_str
Else
Return String.Join(Separator, Array_Name)
End If
Catch ex As Exception
MsgBox(ex.Message)
Return Nothing
End Try
End Function
#End Region
Revierte el contenido de un texto
#Region " Reverse TextFile "
' [ Reverse TextFile ]
'
' // By Elektro H@cker
'
' Examples :
' Reverse_TextFile("C:\File.txt")
Private Sub Reverse_TextFile
(ByVal File As String)
Try
Dim strArray
() As String = IO.
File.
ReadAllLines(File) Array.Reverse(strArray)
Using WriteFile
As New IO.
StreamWriter(File,
False, System.
Text.
Encoding.
Default) WriteFile.WriteLine(String.Join(vbNewLine, strArray))
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
#End Region
Elimina una línea de un texto
#Region " Delete Line From TextFile "
' [ Delete Line From TextFile Function ]
'
' // By Elektro H@cker
'
' Examples :
' Delete_Line_From_TextFile("C:\File.txt", 3)
' Delete_Line_From_TextFile("C:\File.txt", 3, True)
Private Sub Delete_Line_From_TextFile
(ByVal File As String,
ByVal Line_Number
As Int64, _
Optional ByVal Make_Empty_Line As Boolean = False)
Dim Line_Length As Int64 = 0
Line_Number -= 1
Try
Line_Length
= IO.
File.
ReadAllLines(File).
Length Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
Select Case Line_Number
Case Is <= (0 Or 1), Is > Line_Length
MsgBox("Want to cut first " & (Line_Number - 1) & " lines" & vbNewLine & _
"But """ & File & """ have " & Line_Length
& " lines.") Exit Sub
Case Else
Dim strArray
() As String = IO.
File.
ReadAllLines(File)
If Make_Empty_Line Then
Array.Copy(strArray, Line_Number + 1, strArray, Line_Number, UBound(strArray) - Line_Number)
ReDim Preserve strArray(UBound(strArray) - 1)
End If
MsgBox(String.Join(vbNewLine, strArray))
Using WriteFile
As New IO.
StreamWriter(File,
False, System.
Text.
Encoding.
Default) WriteFile.WriteLine(String.Join(vbNewLine, strArray))
End Using
End Select
End Sub
#End Region
Elimina las primeras X líneas de un archivo de texto
#Region " Cut First Lines From TextFile "
' [ Cut First Lines From TextFile Function ]
'
' // By Elektro H@cker
'
' Examples :
' Cut_First_Lines_From_TextFile("C:\File.txt", 3)
Private Sub Cut_First_Lines_From_TextFile
(ByVal File As String,
ByVal Lines
As Int64
)
Dim Line_Length As Int64 = 0
Lines += 1
Try
Line_Length
= IO.
File.
ReadAllLines(File).
Length Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
Select Case Lines
Case Is <= (0 Or 1), Is > Line_Length
MsgBox("Want to cut first " & (Lines - 1) & " lines" & vbNewLine & _
"But """ & File & """ have " & Line_Length
& " lines.") Exit Sub
Case Else
Dim strArray
() As String = IO.
File.
ReadAllLines(File) Array.Reverse(strArray)
ReDim Preserve strArray(strArray.Length - (Lines))
Array.Reverse(strArray)
Using WriteFile
As New IO.
StreamWriter(File,
False, System.
Text.
Encoding.
Default) WriteFile.WriteLine(String.Join(vbNewLine, strArray))
End Using
End Select
End Sub
#End Region
Elimina las últimas X líneas de un archivo de texto
#Region " Cut Last Lines From TextFile "
' [ Cut Last Lines From TextFile Function ]
'
' // By Elektro H@cker
'
' Examples :
' Cut_Last_Lines_From_TextFile("C:\File.txt", 3)
Private Sub Cut_Last_Lines_From_TextFile
(ByVal File As String,
ByVal Lines
As Int64
)
Dim Line_Length As Int64 = 0
Lines += 1
Try
Line_Length
= IO.
File.
ReadAllLines(File).
Length Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
Select Case Lines
Case Is <= (0 Or 1), Is > Line_Length
MsgBox("Want to cut last " & (Lines - 1) & " lines" & vbNewLine & _
"But """ & File & """ have " & Line_Length
& " lines.") Exit Sub
Case Else
Dim strArray
() As String = IO.
File.
ReadAllLines(File) ReDim Preserve strArray(strArray.Length - (Lines))
Using WriteFile
As New IO.
StreamWriter(File,
False, System.
Text.
Encoding.
Default) WriteFile.WriteLine(String.Join(vbNewLine, strArray))
End Using
End Select
End Sub
#End Region
Guarda las primmeras X líneas y elimina el resto de líneas de un archivo de texto.
#Region " Keep First Lines From TextFile "
' [ Keep First Lines From TextFile Function ]
'
' // By Elektro H@cker
'
' Examples :
' Keep_First_Lines_From_TextFile("C:\File.txt", 3)
Private Sub Keep_First_Lines_From_TextFile
(ByVal File As String,
ByVal Lines
As Int64
)
Dim Line_Length As Int64 = 0
Lines -= 1
Try
Line_Length
= IO.
File.
ReadAllLines(File).
Length Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
Select Case Lines
Case Is < 0, Is >= Line_Length
MsgBox("Want to keep first " & (Lines + 1) & " lines" & vbNewLine & _
"But """ & File & """ have " & Line_Length
& " lines.") Exit Sub
Case Else
Dim strArray
() As String = IO.
File.
ReadAllLines(File) ReDim Preserve strArray(Lines)
Using WriteFile
As New IO.
StreamWriter(File,
False, System.
Text.
Encoding.
Default) WriteFile.WriteLine(String.Join(vbNewLine, strArray))
End Using
End Select
End Sub
#End Region
Guarda las últimas X líneas y elimina el resto de líneas de un archivo de texto.
#Region " Keep Last Lines From TextFile "
' [ Keep Last Lines From TextFile Function ]
'
' // By Elektro H@cker
'
' Examples :
' Keep_Last_Lines_From_TextFile("C:\File.txt", 3)
Private Sub Keep_Last_Lines_From_TextFile
(ByVal File As String,
ByVal Lines
As Int64
)
Dim Line_Length As Int64 = 0
Lines -= 1
Try
Line_Length
= IO.
File.
ReadAllLines(File).
Length Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
Select Case Lines
Case Is < 0, Is >= Line_Length
MsgBox("Want to keep last " & (Lines + 1) & " lines" & vbNewLine & _
"But """ & File & """ have " & Line_Length
& " lines.") Exit Sub
Case Else
Dim strArray
() As String = IO.
File.
ReadAllLines(File) Array.Reverse(strArray)
ReDim Preserve strArray(Lines)
Array.Reverse(strArray)
Using WriteFile
As New IO.
StreamWriter(File,
False, System.
Text.
Encoding.
Default) WriteFile.WriteLine(String.Join(vbNewLine, strArray))
End Using
End Select
End Sub
#End Region
Devuelve el el total de líneas de un archivo de texto, con opción de incluir líneas en blanco
#Region " Get TextFile Total Lines "
' [ Get TextFile Total Lines Function ]
'
' Examples :
'
' MsgBox(Get_TextFile_Total_Lines("C:\File.txt"))
' MsgBox(Get_TextFile_Total_Lines("C:\File.txt", False))
Private Function Get_TextFile_Total_Lines
(ByVal File As String, _
Optional ByVal Include_BlankLines As Boolean = True) As Int64
Try
If Include_BlankLines Then
Return IO.
File.
ReadAllLines(File).
Length Else
Dim LineCount As Int64
For Each Line In IO.
File.
ReadAllLines(File) If Not Line = String.Empty Then LineCount += 1
' Application.DoEvents()
Next
Return LineCount
End If
Catch ex As Exception
MsgBox(ex.Message)
Return -1
End Try
End Function
#End Region
Mostrar Mensajes
