User:शिव साहिल
Pages I heavily edited
[edit]Om Namah Shivaya (translated too)
Lingam (translated too)
Rudraksha (hoping to translate it too)
Pages created
[edit]Parashakti (translated too)
Parashiva (translated too)
Baijnath Temple (translated too)
Parameshwara (God) (only hindi part)
P.S. I have added Western Pahari and Kangri written takri script. No one seems to remember that these languages were once written also.
Sub Macro1() Dim wbI As Workbook, wbO As Workbook
Dim wsI As Worksheet
Set wbI = ThisWorkbook
Set wsI = wbI.Sheets("Data") '<~~ Sheet where you want to import
Set wbO = Workbooks.Open("C:\Users\C18890A\Downloads\file.txt")
wbO.Sheets(1).Cells.Copy wsI.Cells
wbO.Close SaveChanges:=False
End Sub
Sub Macro4()
'created two sheets Data and Fields 'in Data sheet paste the logs 'in Fields sheet paste your fields 'first row in the the Fields sheet is "Fields" and "Values"
Dim x As Integer 'for loop integer Dim count As Integer 'count total number of cells in column A of fields sheet eg 4 Dim created As String 'for going though each cell in A column of fields sheet eg A1 Dim FoundCell As Range ' search the data sheet Dim find_what As String 'what you wan to look for range(create) Dim ws_fields As Worksheet Dim next_cell As String ' find the next cell, after you searched the field in the data sheet Dim LArray() As String 'split the accquired string along string :- "value"
Set ws_data = Application.Worksheets("Data")
Set ws_fields = Application.Worksheets("Fields")
count = ws_fields.Range("A1").End(xlDown).Row
Set wbO = Workbooks.Open("C:\Users\C18890A\Downloads\DA-TENANT10.log") 'opening and closing the txt file wbO.Sheets(1).Cells.Copy ws_data.Cells wbO.Close SaveChanges:=False
For x = 2 To count
next_cell = "" find_what = "" created = "" created = "A" & x find_what = ws_fields.Range(created).Value created = "B" & x
Set FoundCell = ws_data.Range("A:A").Find(What:=find_what)
If Not FoundCell Is Nothing Then
next_cell = "A" & FoundCell.Row + 1
'MsgBox (find_what & "'s next data: " & ws_data.Range(next_cell).Value)
'ws_fields.Range(created).Value = find_what & "'s next data: " & ws_data.Range(next_cell).Value
ws_fields.Range(created).Value = ws_data.Range(next_cell).Value
LArray = Split(ws_data.Range(next_cell).Value, "Value:")
ws_fields.Range(created).Value = LArray(1)
Else
'MsgBox (find_what & " not found")
'ws_fields.Range(created).Value = find_what & " not found"
ws_fields.Range(created).Value = "not found"
End If
Next
End Sub