Om Namah Shivaya (traducido también)
Lingam (traducido también)
Rudraksha (espero poder traducirlo también)
Parashakti (traducido también)
Parashiva (traducido también)
Templo Baijnath (traducido también)
Parameshwara (Dios) (sólo parte en hindi)
PD: He añadido la escritura takri en pahari occidental y kangri . Nadie parece recordar que estos idiomas también se escribían en el pasado.
Sub Macro1() Dim wbI como libro de trabajo, wbO como libro de trabajo
Hoja de trabajo de Dim wsI As
Establezca wbI = ThisWorkbook Establezca wsI = wbI.Sheets("Data") '<~~ Hoja donde desea importar Establezca wbO = Workbooks.Open("C:\Users\C18890A\Downloads\file.txt")wbO.Sheets(1).Cells.Copiar wsI.Cells
wbO.Cerrar Guardar cambios:=Falso
Fin del subtítulo
Submacro4()
'creó dos hojas Datos y Campos 'en la hoja Datos pegue los registros 'en la hoja Campos pegue sus campos 'la primera fila en la hoja Campos es "Campos" y "Valores"
Dim x As Integer 'for loop entero Dim count As Integer 'count total number of cells in column A of fields sheet p.ej. 4 Dim created As String 'for going through each cell in A column of fields sheet p.ej. A1 Dim FoundCell As Range 'search the data sheet Dim find_what As String 'what you want to search for range(create) Dim ws_fields As Worksheet Dim next_cell As String 'busca la siguiente celda, después de buscar el campo en la hoja de datos Dim LArray() As String 'divide la cadena adquirida a lo largo de la cadena :- "value"
Establecer ws_data = Application.Worksheets("Datos") Establecer ws_fields = Application.Worksheets("Campos") count = ws_fields.Range("A1").End(xlDown).Row
Establecer wbO = Workbooks.Open("C:\Users\C18890A\Downloads\DA-TENANT10.log") 'abrir y cerrar el archivo txt wbO.Sheets(1).Cells.Copy ws_data.Cells wbO.Close SaveChanges:=False
Para x = 2 Para contar
siguiente_celda = "" encontrar_que = "" creado = "" creado = "A" & x find_what = ws_fields.Range(creado).Value creado = "B" y x
Establecer FoundCell = ws_data.Range("A:A").Find(What:=find_what)
Si no se encuentra la celda, no es nada entonces siguiente_celda = "A" y FoundCell.Row + 1 'MsgBox (find_what & "'s siguientes datos: " & ws_data.Range(next_cell).Value) 'ws_fields.Range(created).Value = find_what & "'s siguientes datos: " & ws_data.Range(next_cell).Value ws_fields.Range(creado).Value = ws_data.Range(siguiente_celda).Value LArray = Split(ws_data.Range(next_cell).Value, "Valor:") ws_fields.Range(creado).Value = LArray(1) Demás 'MsgBox (find_what y "no encontrado") 'ws_fields.Range(created).Value = find_what & " no encontrado " ws_fields.Range(created).Value = "no encontrado" Fin si
Próximo
Fin del subtítulo