Jump to content

User:शिव साहिल

From Wikipedia, the free encyclopedia

Pages I heavily edited

[edit]

Om Namah Shivaya (translated too)

Lingam (translated too)

Rudraksha (hoping to translate it too)

Spatika Lingam

Iraivan Temple

Sivaya Subramuniyaswami

Pages created

[edit]

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