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?
Sarakkeesta sukunimen alkukirjain funktiolla erilleen, etunimien määrä vaihtelee
43
114
Vastaukset
- Anonyymi
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;" ";""))))) - Anonyymi
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))- Anonyymi
Suomi-mallin Libre Calcissa voi vaihtaa funktiot englanninkielisiksi.
Työkalut->Asetukset (Alt F12)
LibreOffice Calc->Kaava
ja täppä kohtaan "Käytä englanninkielisiä funktionimiä". - Anonyymi
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.
- Anonyymi
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.
- Anonyymi
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.
- Anonyymi
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ä. - Anonyymi
"Jos olisi kyseessä suomenkielinen LibreOffice Call, niin näin tuon saisi tehtyä:"
Tuo siis toimi täysin, joten KIITOS
Aiempi kiitos hukkui kommenttien joukkoon
- Anonyymi
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);- Anonyymi
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); - Anonyymi
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.
- Anonyymi
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- Anonyymi
Sama, toisin tehtynä (säästyy muutama merkki):
nimet="Kalevi-Irmeli Jonne Heiskanen-Johansson".split(" ")
print(nimet[0], nimet[2][0])
🧐 - Anonyymi
Pyyttöni findeillä.
>>> nimi="Kalevi-Irmeli Jonne Hämäläinen-Johansson"
>>> print(nimi[0:nimi.find(' ')],nimi[nimi.rfind(' ') 1])
Kalevi-Irmeli H
- Anonyymi
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'- Anonyymi
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])
- Anonyymi
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;
}
}
}- Anonyymi
Foorumi sotkee näköjään vähän sisennyksiä.
- Anonyymi
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; } - Anonyymi
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 - Anonyymi
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 nim2Sizeof-operaattori taitaa tosin palauttaa unsigned longin, joten tarkkaan ottaen for-silmukab int pitäisi korvata sillä.
- Anonyymi
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 nim2gcc -Wall -c hello.c
gcc -Wall -o "hello" "hello.o"
Sinä luultavasti tukahdutat virheet, korjaamatta. - Anonyymi
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. - Anonyymi
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"
- Anonyymi
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 - Anonyymi
Mistä näitä taitajia nyt tupsahti, näinkin monta.
- Anonyymi
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 - Anonyymi
Nyt suomi24 "tietotekniikka" -palsta alkaa näyttää siltä miltä sen pitääkin, moderointi ei pilaa esimerkkien antamista.
- Anonyymi
PHP kielinen vastine jäi tekemättä, kun näytti menevän reippaasti sottailuksi, nimessä olevien ääkkösten vuoksi.
- Anonyymi
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
- Anonyymi
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) - Anonyymi
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 - Anonyymi
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?- Anonyymi
"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 - Anonyymi
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 HMiten tuo tehtäisi niin ettei käytetä hyväksi tiedostolle lähetettävää parametria.
- Anonyymi
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` - Anonyymi
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` - Anonyymi
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.
- Anonyymi
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" - Anonyymi
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]}");
}
} - Anonyymi
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> - Anonyymi
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- Anonyymi
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).
Ketjusta on poistettu 4 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1191682
Noniin rakas
Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi991508Lasten hyväksikäyttö netissä - Joka 3. nuori on saanut seksuaalisen yhteydenoton pedofiililtä
Järkyttävää! Lapsiin kohdistuva seksuaalinen hyväksikäyttö verkossa on yhä pahempi ongelma. Ulkolinja: Lasten hyväksikäy37963Multa sulle
Pyörit 24/7 mielessä, kuljet mun mukana, mielessä kyselen sun mielipiteitä, vitsailen sulle, olen sydän auki, aitona. M29889Kumpi vetoaa enemmän sinuun
Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?38841Nainen, olen tutkinut sinua paljon
Salaisuutesi ei ole minulle salaisuus. Ehkä teimme jonkinlaista vaihtokauppaa kun tutkisimme toisiamme. Meillä oli kumm50806Mies, eihän sulla ole vaimoa tai naisystävää?
Minusta tuntuu jotenkin, että olisit eronnut joskus, vaikka en edes tiedä onko se totta. Jos oletkin oikeasti edelleen s43758Olet myös vähän ärsyttävä
Tuntuu, että olet tahallaan nuin vaikeasti tavoiteltava. En tiedä kauanko jaksan tätä näin.37750Okei nyt mä ymmärrän
Olet siis noin rakastunut, se selittää. Onneksesi tunne on molemminpuolinen 😘56748Onko sulla empatiakykyä?
Etkö tajua yhtään miltä tämä tuntuu minusta? Minä ainakin yritän ymmärtää miltä sinusta voisi tuntua. En usko, että olet37720