 Autor
|
Tema: ¿Cómo extraer texto desde una palabra a otra? (Leído 2,948 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
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
|
|
|
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
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
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
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
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
|
7,933
|
3 Abril 2007, 21:44 pm
por malgia
|
|
|
|
Como modificar una palabra por otra mas larga en V Basic
Ingeniería Inversa
|
ELDORADOV8
|
4
|
3,994
|
18 Junio 2008, 22:58 pm
por Shaddy
|
|
|
|
Extraer Palabra de un String con delimitadores
PHP
|
spysecurityca
|
4
|
3,601
|
3 Septiembre 2014, 16:51 pm
por WHK
|
|
|
|
Como extraer multiples datos de un archivo de texto[AYUDA]
Programación C/C++
|
Rastreator1010
|
0
|
1,864
|
16 Octubre 2014, 20:17 pm
por Rastreator1010
|
|
|
|
extraer palabra de string
.NET (C#, VB.NET, ASP)
|
PETTETE
|
5
|
4,397
|
19 Septiembre 2017, 14:51 pm
por Eleкtro
|
 |
