Autor
|
Tema: ¿Cómo extraer texto desde una palabra a otra? (Leído 3,387 veces)
|
Cergath
Desconectado
Mensajes: 340
|
Hola, Tengo una lista que va así: ... ... .. TY - JOUR AN - WOS:000207966700012 DA - Jul-Sep J2 - Acta Bioquim. Clin. Latinoam. KW - CARDIAC TROPONIN-I; ACUTE MYOCARDIAL-INFARCTION; BRAIN NATRIURETIC; PEPTIDE; ARTERY-BYPASS-SURGERY; ST-SEGMENT-ELEVATION; CREATINE-KINASE-MB; DEPARTMENT PATIENT SATISFACTION; ACUTE; PULMONARY-EMBOLISM; CRITICALLY-ILL PATIENTS; STAGE RENAL-DISEASE LA - Spanish M1 - 3 M3 - Article N1 - ISI Document Delivery No.: V17WG Times Cited: 0 Cited Reference Count: 218 Cited References: .... ... ... .. Necesito colocar el ";" (punto y coma) como se ve en el ejemplo únicamente en los items que están en KW exceptuando el último de ellos, justamente como se ve en el ejemplo. ¿Cómo podría lograrlo?... El problema es que son más de un millón de registros por lo que necesito algo automático :/ Siempre es de KW a LA, y todas esas (que están como KW - (con el guión)) son como categorías, entonces sería hacer el punto y coma para la categoría KW, exceptuando su último item... Con excel podría hacer algo como =A1&";" pero ciertamente no me sirve porque lo aplicaría a tooodo, y solo necesito KW exceptuando su último... no se me ocurre qué hacer, ¿algún consejo?
|
|
|
En línea
|
|
|
|
Shell Root
|
Pues no olvides de que en Excel existe el condicional IF.
Podrías poner como esta el archivo actual unas cuantas lineas, y debajo como quieres que se modifique? No logro comprender lo que quieres,
|
|
|
En línea
|
Te vendería mi talento por poder dormir tranquilo.
|
|
|
|
Shell Root
|
Oka es fácil ya que tiene un patron haré una pequeña macro para que la ejecutes en Excel. Espera un momento.
|
|
« Última modificación: 29 Mayo 2015, 23:57 pm por Shell Root »
|
En línea
|
Te vendería mi talento por poder dormir tranquilo.
|
|
|
Cergath
Desconectado
Mensajes: 340
|
@Shell Root , no sé cómo agradecértelo estoy terminando mi trabajo de tesis en bibliometría y quería sacar un indicador con esos datos... En serio muchas pero muchas gracias por tu ayuda. Ojalá hubiera un botoncito de reputación como mínimo
|
|
|
En línea
|
|
|
|
Shell Root
|
No es nada raro, hasta se puede optimzar, pero nah... Public Sub PoC() Dim Row As Integer: Row = 1 Dim DentroDeKW As Boolean: DentroDeKW = False Sheets("Hoja1").Select Do While Range("A" & Row).Value <> Empty If Mid(Range("A" & Row).Value, 1, 2) = "KW" Then DentroDeKW = True End If If Mid(Range("A" & Row + 1).Value, 1, 2) = "LA" Then DentroDeKW = False End If If DentroDeKW = True Then Range("A" & Row).Value = Range("A" & Row).Value & ";" End If Row = Row + 1 Loop End Sub
Resultado: TY - JOUR AN - WOS:000207966700012 DA - Jul-Sep J2 - Acta Bioquim. Clin. Latinoam. KW - CARDIAC TROPONIN-I; ACUTE MYOCARDIAL-INFARCTION; BRAIN NATRIURETIC; PEPTIDE; ARTERY-BYPASS-SURGERY; ST-SEGMENT-ELEVATION; CREATINE-KINASE-MB; DEPARTMENT PATIENT SATISFACTION; ACUTE; PULMONARY-EMBOLISM; CRITICALLY-ILL PATIENTS; STAGE RENAL-DISEASE LA - Spanish M1 - 3 M3 - Article N1 - ISI Document Delivery No.: V17WG Times Cited: 0 Cited Reference Count: 218 Cited References: Agewall S, 2003, CLIN BIOCHEM, V36, P27, DOI 10.1016/S0009-9120(02)00417-4 Akhtar S, 2004, CRIT CARE MED, V32, pS126, DOI 10.1097/01.CCM.0000121576.73871.2D Akkerhuis KM, 2002, CIRCULATION, V105, P554, DOI 10.1161/hc0502.104278 Alpert JS, 2000, J AM COLL CARDIOL, V36, P959 Altinier S, 2001, CLIN CHIM ACTA, V311, P67, DOI 10.1016/S0009-8981(01)00562-9 [Anonymous] TY - JOUR AN - WOS:000207966700012 DA - Jul-Sep J2 - Acta Bioquim. Clin. Latinoam. KW - CARDIAC TROPONIN-I; ACUTE MYOCARDIAL-INFARCTION; BRAIN NATRIURETIC; PEPTIDE; ARTERY-BYPASS-SURGERY; ST-SEGMENT-ELEVATION; CREATINE-KINASE-MB; DEPARTMENT PATIENT SATISFACTION; ACUTE; PULMONARY-EMBOLISM; CRITICALLY-ILL PATIENTS; STAGE RENAL-DISEASE LA - Spanish M1 - 3 M3 - Article N1 - ISI Document Delivery No.: V17WG Times Cited: 0 Cited Reference Count: 218 Cited References: Agewall S, 2003, CLIN BIOCHEM, V36, P27, DOI 10.1016/S0009-9120(02)00417-4 Akhtar S, 2004, CRIT CARE MED, V32, pS126, DOI 10.1097/01.CCM.0000121576.73871.2D Akkerhuis KM, 2002, CIRCULATION, V105, P554, DOI 10.1161/hc0502.104278 Alpert JS, 2000, J AM COLL CARDIOL, V36, P959 Altinier S, 2001, CLIN CHIM ACTA, V311, P67, DOI 10.1016/S0009-8981(01)00562-9 [Anonymous]
|
|
|
En línea
|
Te vendería mi talento por poder dormir tranquilo.
|
|
|
Cergath
Desconectado
Mensajes: 340
|
Hola, Muchas gracias!, funciona perfectamente. Edit: Todo lo que mencioné abajo ya puedo solucionarlo entonces lo he eliminado , el problema que tengo y que no sé cómo resolver es el de desbordamiento Edit 2: Ya pude, reemplacé Integer por Long ¡Muchas gracias @Shell Root! eres lo mejor :3
|
|
« Última modificación: 30 Mayo 2015, 01:23 am por Cergath »
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Como puedo extraer el texto de una imagen. URGENTE!!!!!
Programación Visual Basic
|
augusto_pr
|
2
|
8,215
|
3 Abril 2007, 21:44 pm
por malgia
|
|
|
Como modificar una palabra por otra mas larga en V Basic
Ingeniería Inversa
|
ELDORADOV8
|
4
|
4,256
|
18 Junio 2008, 22:58 pm
por Shaddy
|
|
|
Extraer Palabra de un String con delimitadores
PHP
|
spysecurityca
|
4
|
3,817
|
3 Septiembre 2014, 16:51 pm
por WHK
|
|
|
Como extraer multiples datos de un archivo de texto[AYUDA]
Programación C/C++
|
Rastreator1010
|
0
|
2,231
|
16 Octubre 2014, 20:17 pm
por Rastreator1010
|
|
|
extraer palabra de string
.NET (C#, VB.NET, ASP)
|
PETTETE
|
5
|
4,811
|
19 Septiembre 2017, 14:51 pm
por Eleкtro
|
|