User:शिव साहिल

Pages I heavily edited
Om Namah Shivaya (translated too)

Lingam (translated too)

Rudraksha (hoping to translate it too)

Spatika Lingam

Iraivan Temple

Sivaya Subramuniyaswami

Pages created
Parashakti (translated too)

Parashiva (translated too)

Kadavul Temple

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