Sarakkeesta sukunimen alkukirjain funktiolla erilleen, etunimien määrä vaihtelee

Anonyymi11.8.2020 klo 11.51

Solussa / sarakkeessa on: (kaikki nimet on keksittyjä tässä)
Ville Veikko Oskari Salminen
Kari Hakkarainen
Pertti Pekka Veikko Matalamäki

Etunimien määrä voi siis vaihdella, pitäisi funktiolla erottaa sukunimen eka kirjain

Tavoite olisi vastauksena:
Ville S
Kari H
Pertti M

Olen joskus osannut solun sisällä etsiä monella välilyönnillä, nyt ei onnistu. Kyseessä funktioiden oikea ja pituus ja etsi yms yhdistelmää, mutta miten?

43219

Äänestä

Vastaukset 43

Vanhimmat

Anonyymi11.8.2020 klo 12.23

En jaksanut alkaa keksimään pyörää uudelleen, joten katsoin googlesta. Ao. funktiohässäkkä palauttaa A1-solun viimeisen sanan. Saat varmaan siihen lisäämällä ympättyä loput itsekin.

=RIGHT(A1;LEN(A1)-FIND("*";SUBSTITUTE(A1;" ";"*";LEN(A1)-LEN(SUBSTITUTE(A1;" ";"")))))

Äänestä

Anonyymi11.8.2020 klo 16.37

Jos olisi kyseessä suomenkielinen LibreOffice Call, niin näin tuon saisi tehtyä:

=KETJUTA(VASEN(A1;ETSI(" ";A1));" ";VASEN(OIKEA(A1;PITUUS(A1)-ETSI("*";VAIHDA(A1;" ";"*";PITUUS(A1)-PITUUS(VAIHDA(A1;" ";"")))));1))

Äänestä

Anonyymi11.8.2020 klo 16.55
Suomi-mallin Libre Calcissa voi vaihtaa funktiot englanninkielisiksi.

Työkalut->Asetukset (Alt F12)
LibreOffice Calc->Kaava
ja täppä kohtaan "Käytä englanninkielisiä funktionimiä".
Äänestä
Anonyymi11.8.2020 klo 20.22
Anonyymi kirjoitti:
Suomi-mallin Libre Calcissa voi vaihtaa funktiot englanninkielisiksi.

Työkalut->Asetukset (Alt F12)
LibreOffice Calc->Kaava
ja täppä kohtaan "Käytä englanninkielisiä funktionimiä".
En tuota tiennytkään, epäilen vielä, koska järjestelmäni on puhdistuttu kaikista muista kielistä, saattaahan se ladata sen englannin tuota vaihtoa tehdessä. En vain ala testaamaan, roskaksi vain jää levylle.
Äänestä
Anonyymi11.8.2020 klo 20.29
Anonyymi kirjoitti:
En tuota tiennytkään, epäilen vielä, koska järjestelmäni on puhdistuttu kaikista muista kielistä, saattaahan se ladata sen englannin tuota vaihtoa tehdessä. En vain ala testaamaan, roskaksi vain jää levylle.
Alkuperäiset englanninkieliset funktiot on kovakoodattu. Jos haluat minimoida roskat, niin poistat suomen kielen koneelta. Englanti on atk-maailman oletuskieli.
Äänestä
Anonyymi11.8.2020 klo 22.53
Anonyymi kirjoitti:
Alkuperäiset englanninkieliset funktiot on kovakoodattu. Jos haluat minimoida roskat, niin poistat suomen kielen koneelta. Englanti on atk-maailman oletuskieli.
En halua minimoida roskia noin kovasti.
Äänestä
Anonyymi18.8.2020 klo 14.46
Kokeilin tätä, ihan vaan kopioin sen tilanteeseen.
TOIMII.
Suuri kiitos 👌

(kannattaisi vielä yrittää perehtyäkin tuohon.....)
En muuten tiennyt, että Libre laskennassa on samat funktiot kuin Excelissä.
Äänestä
Anonyymi18.8.2020 klo 15.58
"Jos olisi kyseessä suomenkielinen LibreOffice Call, niin näin tuon saisi tehtyä:"
Tuo siis toimi täysin, joten KIITOS
Aiempi kiitos hukkui kommenttien joukkoon
Äänestä

Anonyymi11.8.2020 klo 16.51

For(a<end);
set [current x = a x)
if (x = null) set y(x) = 1

For(end-z =/= y(x));
then set z=z-1
else i=z;

i 1= sukunimen alkukirjain
print (nimet from 1-to i) (i 1);

Äänestä

Anonyymi11.8.2020 klo 17.01
Ainiin en huomannut että toisia nimiä ei kirjoiteta. Tuohon pitää tehdä siis:

For(a<end);
set [current x = a x)
if (x = null) set y(x) = 1

For(end-z =/= y(x=1));
then set z=z-1
else i=z;

set z = 0

For(z =/= y(x=1));
then set z=z 1
else i2=z;

i 1= sukunimen alkukirjain
print (nimet from 1-to i2) (i 1);
Äänestä
Anonyymi11.8.2020 klo 17.19
Anonyymi kirjoitti:
Ainiin en huomannut että toisia nimiä ei kirjoiteta. Tuohon pitää tehdä siis:

For(a<end);
set [current x = a x)
if (x = null) set y(x) = 1

For(end-z =/= y(x=1));
then set z=z-1
else i=z;

set z = 0

For(z =/= y(x=1));
then set z=z 1
else i2=z;

i 1= sukunimen alkukirjain
print (nimet from 1-to i2) (i 1);
Et huomannut jotain muutakaan.
Äänestä

Anonyymi11.8.2020 klo 21.00

Pyyttönillä.

>>> nimi="Kalevi-Irmeli Jonne Hämäläinen-Johansson"
>>> print(nimi.split(" ")[0],nimi.split(" ")[len(nimi.split(" "))-1][0])
Kalevi-Irmeli H

Äänestä

Anonyymi11.8.2020 klo 21.45
Sama, toisin tehtynä (säästyy muutama merkki):

nimet="Kalevi-Irmeli Jonne Heiskanen-Johansson".split(" ")
print(nimet[0], nimet[2][0])
🧐
Äänestä
Anonyymi12.8.2020 klo 8.56
Pyyttöni findeillä.

>>> nimi="Kalevi-Irmeli Jonne Hämäläinen-Johansson"
>>> print(nimi[0:nimi.find(' ')],nimi[nimi.rfind(' ') 1])
Kalevi-Irmeli H
Äänestä

Anonyymi12.8.2020 klo 9.12

Javascriptillä.

> const nimi="Kalevi-Irmeli Jonne Hämäläinen-Johansson"
undefined
> nimi.slice(0,nimi.indexOf(' ')) ' ' nimi.charAt(nimi.lastIndexOf(' ') 1)
'Kalevi-Irmeli H'

Äänestä

Anonyymi12.8.2020 klo 10.10
Sama (JavaScript) kuin edellä, muuta lyhyemmin:

let nimi = "Kalevi-Irmeli Jonne Hämäläinen-Johansson".split(' ');
console.log(nimi[0] , nimi[nimi.length - 1][0])
Äänestä

Anonyymi12.8.2020 klo 11.01

C-kielellä+ilman+string-kirjastoa.#include+<stdio.h>void+main(void)+{ char+nimi[]="Kalevi-Irmeli+Jonne+Hämäläinen-Johansson";++++for(int+i=0;+i<sizeof(nimi);+i++)+{++++++++if(nimi[i]+==+"+")+break;++++++++printf("%c",nimi[i]);++++}++++for(int+i=sizeof(nimi);+i>=0;+--i)+{++++++++if(nimi[i]+==+"+")+{+++++++++++++printf("+%c\n",nimi[i+1]);++++++++++++break;++++++++}++++}}

Äänestä

Anonyymi12.8.2020 klo 11.02
Foorumi sotkee näköjään vähän sisennyksiä.
Äänestä
Anonyymi12.8.2020 klo 23.18
Sama+(C:llä)+kuin+edellä,+muutama+merkki+lyhyemmin,+eikä+kääntäjän+varoituksia:#include+<stdio.h>#include+<string.h>int+main()+{char+n[]+=+"Kalevi-Irmeli+Jonne+Hämäläinen-Johansson";char+*+t+=+strtok(n,+"+");char+*+v;printf(+"%s",+t+);while(+t+!=+NULL+)+{v+=+t;t+=+strtok(NULL,+"+");++}printf(+"+%c\n",+v[0]+);return+0;+}
Äänestä
Anonyymi13.8.2020 klo 8.50
Anonyymi kirjoitti:
Sama+(C:llä)+kuin+edellä,+muutama+merkki+lyhyemmin,+eikä+kääntäjän+varoituksia:#include+<stdio.h>#include+<string.h>int+main()+{char+n[]+=+"Kalevi-Irmeli+Jonne+Hämäläinen-Johansson";char+*+t+=+strtok(n,+"+");char+*+v;printf(+"%s",+t+);while(+t+!=+NULL+)+{v+=+t;t+=+strtok(NULL,+"+");++}printf(+"+%c\n",+v[0]+);return+0;+}
Mitä kääntäjää käytät? Gcc ei anna kummallakaan varoituksia. String-kirjasto ei näköjään kasvata lainkaan suoritettavan binäärin kokoa. "Nim" on ilman string-kirjastoa ja "nim2" sen kanssa.

seppo@ubuntu:~/c$ gcc nim.c -o nim;./nim; ls -la nim
Kalevi-Irmeli H
-rwxrwxr-x 1 ubu ubu 16792 elo 13 08:44 nim
seppo@ubuntu:~/c$ nano nim2.c
seppo@ubuntu:~/c$ gcc nim2.c -o nim2;./nim2; ls -la nim2
Kalevi-Irmeli H
-rwxrwxr-x 1 ubu ubu 16792 elo 13 08:46 nim2
Äänestä
Anonyymi13.8.2020 klo 8.55
Anonyymi kirjoitti:
Mitä kääntäjää käytät? Gcc ei anna kummallakaan varoituksia. String-kirjasto ei näköjään kasvata lainkaan suoritettavan binäärin kokoa. "Nim" on ilman string-kirjastoa ja "nim2" sen kanssa.

seppo@ubuntu:~/c$ gcc nim.c -o nim;./nim; ls -la nim
Kalevi-Irmeli H
-rwxrwxr-x 1 ubu ubu 16792 elo 13 08:44 nim
seppo@ubuntu:~/c$ nano nim2.c
seppo@ubuntu:~/c$ gcc nim2.c -o nim2;./nim2; ls -la nim2
Kalevi-Irmeli H
-rwxrwxr-x 1 ubu ubu 16792 elo 13 08:46 nim2
Sizeof-operaattori taitaa tosin palauttaa unsigned longin, joten tarkkaan ottaen for-silmukab int pitäisi korvata sillä.
Äänestä
Anonyymi13.8.2020 klo 10.12
Anonyymi kirjoitti:
Mitä kääntäjää käytät? Gcc ei anna kummallakaan varoituksia. String-kirjasto ei näköjään kasvata lainkaan suoritettavan binäärin kokoa. "Nim" on ilman string-kirjastoa ja "nim2" sen kanssa.

seppo@ubuntu:~/c$ gcc nim.c -o nim;./nim; ls -la nim
Kalevi-Irmeli H
-rwxrwxr-x 1 ubu ubu 16792 elo 13 08:44 nim
seppo@ubuntu:~/c$ nano nim2.c
seppo@ubuntu:~/c$ gcc nim2.c -o nim2;./nim2; ls -la nim2
Kalevi-Irmeli H
-rwxrwxr-x 1 ubu ubu 16792 elo 13 08:46 nim2
gcc -Wall -c hello.c
gcc -Wall -o "hello" "hello.o"

Sinä luultavasti tukahdutat virheet, korjaamatta.
Äänestä
Anonyymi13.8.2020 klo 10.30
Anonyymi kirjoitti:
gcc -Wall -c hello.c
gcc -Wall -o "hello" "hello.o"

Sinä luultavasti tukahdutat virheet, korjaamatta.
Luultavasti kääntäjä tekee muunnokset automaattisesti, koska ei ilmoita ainoastakaan virheestä.

C-kielihän on aika tarkka. Periaatteessa funktiotkin pitäisi esitellä etukäteen. Tosin tuossa esimerkissähän ei ole "omia" funktioita lainkaan, mutta jos olisi, niin tyyliin:

char *funktio(char *);

char *funktio(char *palauta) {
return palauta;
}

Mutta tuota esittelyä ei välttämättä nykykääntäjillä tarvitse. Vielä 1980-luvulla olivat tarkempia.
Äänestä
Anonyymi13.8.2020 klo 11.53
Anonyymi kirjoitti:
Luultavasti kääntäjä tekee muunnokset automaattisesti, koska ei ilmoita ainoastakaan virheestä.

C-kielihän on aika tarkka. Periaatteessa funktiotkin pitäisi esitellä etukäteen. Tosin tuossa esimerkissähän ei ole "omia" funktioita lainkaan, mutta jos olisi, niin tyyliin:

char *funktio(char *);

char *funktio(char *palauta) {
return palauta;
}

Mutta tuota esittelyä ei välttämättä nykykääntäjillä tarvitse. Vielä 1980-luvulla olivat tarkempia.
Suorita kokoaminen (gcc -Wall -c "hello.c") käyttäen -Wall optiota, joka mahdollistaa varoitusten näytön.

Ja vasta sitten kun kokoaminen menee virheettömästi suoritat kääntämisen:

gcc -Wall -o "hello" "hello.o"
Äänestä

Anonyymi12.8.2020 klo 12.23

Kustomina Excel-funktiona, koska Excelissä itsessään ei ole "takaperin" etsintää.

Käyttö: =nimifunktio("Etunimi1 Etunimi2 Takanimi")

Function nimifunktio(nimi As String)
Dim i As Integer
Dim paluuarvo As String
nimi = Trim(nimi)
i = InStr(nimi, " ")
If (i > 0) Then
paluuarvo = Left(nimi, i)
End If
i = InStrRev(nimi, " ")
If (i > 0) Then
paluuarvo = paluuarvo Mid(nimi, i 1, 1)
End If
nimifunktio = paluuarvo
End Functio

Äänestä

Anonyymi12.8.2020 klo 23.21

Mistä näitä taitajia nyt tupsahti, näinkin monta.

Äänestä

Anonyymi13.8.2020 klo 7.36

1 ainoa Excel vastaus Excel ryhmässä...
tässä nyt toinen
Function fiksattunimi(nimi As String) As String
x = Split(nimi, " ")
fiksattunimi = x(0) & " " & Left(x(UBound(x)), 1)
End Function

Keep EXCEling
@Kunde

Äänestä

Anonyymi13.8.2020 klo 12.02

Nyt suomi24 "tietotekniikka" -palsta alkaa näyttää siltä miltä sen pitääkin, moderointi ei pilaa esimerkkien antamista.

Äänestä

Anonyymi13.8.2020 klo 22.43

PHP kielinen vastine jäi tekemättä, kun näytti menevän reippaasti sottailuksi, nimessä olevien ääkkösten vuoksi.

Äänestä

Anonyymi14.8.2020 klo 8.20
PHP:lla pari riviä:

php > $nimet=explode(" ","Kalevi-Irmeli Jonne Hämäläinen-Johansson");
php > echo $nimet[0]," ",$nimet[sizeof($nimet)-1][0];
Kalevi-Irmeli H
Äänestä

Anonyymi14.8.2020 klo 9.34

MySQL:llä.

mysql> set @nimi:="Kalevi-Irmeli Jonne Hämäläinen-Johansson";
Query OK, 0 rows affected (0.01 sec)

mysql> SELECT CONCAT(SUBSTRING_INDEX(@nimi, " ", 1),SPACE(1),LEFT(SUBSTRING_INDEX(@nimi, " ", -1),1)) AS nimi;
-----------------
| nimi |
-----------------
| Kalevi-Irmeli H |
-----------------
1 row in set (0.00 sec)

Äänestä

Anonyymi14.8.2020 klo 10.53

MongoDB.

> nimet="Kalevi-Irmeli Jonne Hämäläinen-Johansson".split(' ')
[ "Kalevi-Irmeli", "Jonne", "Hämäläinen-Johansson" ]
> nimet[0] ' ' nimet.slice(-1)[0][0]
Kalevi-Irmeli H

Äänestä

Anonyymi14.8.2020 klo 17.03

Bash Shell
En saa vietyä tätä loppuun. Tähän asti olen päässyt:

>>> nimi="Kalevi-Irmeli Jonne Hämäläinen-Johansson"
>>> set -- $nimi

Sanojen määrä selviää näin, antaa 3
echo $#

Jokainen sana voidaan tulostaa erikseen näin:
echo $1, $2, $3

Mutta kuinka poimitaan viimeisen sanan ensimmäinen kirjain?

Äänestä

Anonyymi14.8.2020 klo 17.40
"expr substr Takanimi 1 1" tulostaa T-kirjaimen.
"echo "${@: -1}" tulostaa viimeisen argumentin.

Yhdistetään nuo ja tehdään skripti "lyhennänimi.sh":

#!/bin/bash
echo $1 `expr substr "${@: -1}" 1 1`

Testi:
$ ./lyhennänimi.sh Kalevi-Irmeli Jonne Hämäläinen-Johansson
Kalevi-Irmeli H
Äänestä
Anonyymi14.8.2020 klo 21.29
Anonyymi kirjoitti:
"expr substr Takanimi 1 1" tulostaa T-kirjaimen.
"echo "${@: -1}" tulostaa viimeisen argumentin.

Yhdistetään nuo ja tehdään skripti "lyhennänimi.sh":

#!/bin/bash
echo $1 `expr substr "${@: -1}" 1 1`

Testi:
$ ./lyhennänimi.sh Kalevi-Irmeli Jonne Hämäläinen-Johansson
Kalevi-Irmeli H
Miten tuo tehtäisi niin ettei käytetä hyväksi tiedostolle lähetettävää parametria.
Äänestä
Anonyymi14.8.2020 klo 22.10
Anonyymi kirjoitti:
Miten tuo tehtäisi niin ettei käytetä hyväksi tiedostolle lähetettävää parametria.
Tuossa yksi versio skriptistä.

#!/bin/bash
nimi="Kalevi-Irmeli Jonne Hämäläinen-Johansson"
splitatut=(${nimi// / })
echo ${splitatut[0]} `expr substr "${splitatut[2]}" 1 1`
Äänestä
Anonyymi14.8.2020 klo 22.55
Anonyymi kirjoitti:
Tuossa yksi versio skriptistä.

#!/bin/bash
nimi="Kalevi-Irmeli Jonne Hämäläinen-Johansson"
splitatut=(${nimi// / })
echo ${splitatut[0]} `expr substr "${splitatut[2]}" 1 1`
Väärinhän se meni, koska laitoin kiinteän indeksin takanimelle. Tämän pitäisi olla dynaaminen.

#!/bin/bash
nimi="Kalevi-Irmeli Jonne Hämäläinen-Johansson"
splitatut=(${nimi// / })
echo ${splitatut[0]} `expr substr "${splitatut[-1]}" 1 1`
Äänestä
Anonyymi14.8.2020 klo 23.38
Anonyymi kirjoitti:
Väärinhän se meni, koska laitoin kiinteän indeksin takanimelle. Tämän pitäisi olla dynaaminen.

#!/bin/bash
nimi="Kalevi-Irmeli Jonne Hämäläinen-Johansson"
splitatut=(${nimi// / })
echo ${splitatut[0]} `expr substr "${splitatut[-1]}" 1 1`
No niin, nyt toimii hienosti. Hiton hienoa että on näitä osaajiakin mukana.
Äänestä

Anonyymi15.8.2020 klo 12.35

R-kielellä.

> nimet <- strsplit("Kalevi-Irmeli Jonne Hämäläinen-Johansson"," ")[[1]]
> print(paste(nimet[1],substr(nimet[length(nimet)],1,1),sep=" "))
[1] "Kalevi-Irmeli H"

Äänestä

Anonyymi15.8.2020 klo 13.13

C risuaita kielellä

using System;

public class LyhennaNimi
{
public static void Main()
{
string[] nimet="Kalevi-Irmeli Jonne Hämäläinen-Johansson".Split(" ");
Console.WriteLine($"{nimet[0]} {nimet[nimet.Length-1][0]}");
}
}

Äänestä

Anonyymi15.8.2020 klo 14.26

Erlangilla:

Eshell V11.0.3 (abort with ^G)
1> Nimet=string:lexemes("Kalevi-Irmeli Jonne Hämäläinen-Johansson"," ").
["Kalevi-Irmeli","Jonne","Hämäläinen-Johansson"]
2> io:fwrite("~p~n",[string:concat(string:concat(lists:nth(1,Nimet)," "),string:left(lists:last(Nimet),1))]).
"Kalevi-Irmeli H"
ok
3>

Äänestä

Anonyymi18.8.2020 klo 14.23

No johan on tullut valtaisasti vastauksia.
Ollaan Excelin keskustelupalstalla, joten en huomannut erikseen mainita, että käytän Exceliä.
Mutta kiitos silti kaikista ehdotuksista.
Mukana on koodareitakin ja itse asiassa hyvä juttu, sillä kysymykseni liittyy suureen kokonaisuuteen, joka pyörii makrolla.
Vastauksista tuli melkoisesti pohdiskeltavaa, Kiitos

Äänestä

Anonyymi19.8.2020 klo 8.55
Ensin yksi keino palauttaa cell:issä A1 olevan ascii pötkylän viimeinen sana, se on Array Formula joka tässä tapauksessa tarkoittaa vain sitä että kun tuon on pastennut celliin niin pitää ensin painaa Shift ja Ctrl ensin pohjaan ja pitää ne siellä kun nakauttaa Enter:in.

=RIGHT(A1,LEN(A1)-MAX(ROW(INDIRECT("1:"&LEN(A1))) *(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)=" ")))

Sitten yksi keino palauttaa cell:issä A1 olevan ascii pötkylän ensimmäinen sana:

=LEFT(A1,FIND(" ",A1,1))

Se ei ole Array Formula, vaan on tavallinen formula.

Ja kun ne nyplää yhteen siten kuin AP haluaa niin kun ascii pötkylä
on cell:issä A1 saadaan:

=LEFT(A1,FIND(" ",A1,1))& " " & LEFT(RIGHT(A1,LEN(A1)-MAX(ROW(INDIRECT("1:"&LEN(A1))) *(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)=" "))))

Joka on array formula joka tässä tapauksessa tarkoittaa vain sitä että kun tuon on pastennut celliin niin pitää ensin painaa Shift ja Ctrl ensin pohjaan ja pitää ne siellä kun nakauttaa Enter:in. Sitä voi copioda aivan samoin kuin tavallistakin formulaa.

Lähde: Chip Pearson:in saitti ( cpearson, Pearson Software Consulting, LLC, Comprehensive Excel Information ) jonka suoran linkin kirjoittaminen tähän viestiin ilmeiseti aiheuttaa viestin sensuroimisen. Auto-onnettomuuudessa surmansa saaneen Chip Pearson:in saitti on ainoa mitä kovimman luokan Excelisitiksi kaipaava tarvitsee. Saitia ylläpitävä taho ottaa mielellään donateeraukia, saitin ylläpito ko liikennemäärillä ei ole ilmaista.

Itse tosin en tekisi noin, koska sitä on vaikea ymmärtää, vaan käyttäsin UDF:iä jotka ovat minun "järkäle" *.vba addin:issä, niistä pienen osan olen nysvännyt itse, suuren osan olen kopsannut Chip:ilä ja sitä sun tätä muilta. Kannattaa todella hieman tutustua VBA puolelle, siis makroihin ja siihen miten workbook talletetaan addin:iksi (siis *.xla tai sösssityissä versioissa *.xlam).
Äänestä

Ketjusta on poistettu 4 sääntöjenvastaista viestiä.

Odottaa vastausta

Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.

Ilmoitukset

Sarakkeesta sukunimen alkukirjain funktiolla erilleen, etunimien määrä vaihtelee

Muut lukivat myös

Vastaukset 43

Odottaa vastausta

Luetuimmat keskustelut

Kommentoi aloitusta

Ilmoita asiaton sisältö

Ilmoitus lähetetty

Jaa keskustelu