Извлечь только первый столбец из файла в формате txt

 function b=funcl(a)
k=fopen('spisok.txt','rt'); % открываем текстовый файл  
s1=fgetl(k); % читаем первую строку 
s1=fgets(k,8) % читаем восемь следующих символа (Гарипова)
s2=fgetl(k); % читаем вторую строку
s2=fgets(k,8) % читаем восемь следующих символов (Колотова)
s3=fgetl(k); % читаем третью строку
s3=fgets(k,11) % читаем восемь следующих символов (Староверова)
for j=1:3
    for i=1:12
       c=fprintf(k)
       c=str2num(c)
           end
end

a = dlmread('Дано.txt', ' ', 1, 1);
a(:,1)

function b=funcl(a)
k=fopen('spisok.txt','rt'); % открываем текстовый файл  
fgetl(k); % читаем первую строку c заголовком
i = 1;
while ~feof(k)
    str = fgetl(k);
    id = findstr(str,' ');
    s{i} = str(1:id(1)-1);
    i = i+1;
end
s

function b=funcl(a)
clc
clear
k=fopen('spisok.txt','rt');
%s1=fgetl(k); 
%s1=fgets(k,8);
%s2=fgetl(k);
%s2=fgets(k,8);
%s3=fgetl(k);
%s3=fgets(k,8);
%fgetl(k)
i = 1;
while ~feof(k)
    str = fgetl(k);
    id = findstr(str,' ');
    s{i} = str(1:id(1)-1);
    i = i+1;
end
s(2)
s(3)
s(4)

clc
clear
q=uigetfile('*.txt')
a=load(q)
b=funcl(a);
d=uiputfile('*.txt')
dlmwrite(d,b)
type(d)
fclose('all');

clc
clear
q=uigetfile('*.txt')
b=funcl(q);
d=uiputfile('*.txt')
dlmwrite(d,b)
type(d)
fclose('all');

function b=funcl(q)
clc
clear
k=fopen('spisok.txt','rt');
%s1=fgetl(k); 
%s1=fgets(k,8);
%s2=fgetl(k);
%s2=fgets(k,8);
%s3=fgetl(k);
%s3=fgets(k,8);
%fgetl(k)
i = 1;
while ~feof(k)
    str = fgetl(k);
    id = findstr(str,' ');
    s{i} = str(1:id(1)-1);
    i = i+1;
end
s(2)
s(3)
s(4)

function s = funcl(q)
k=fopen(q,'rt');
fgetl(k)
i = 1;
while ~feof(k)
    str = fgetl(k);
    id = findstr(str,' ');
    s{i} = str(1:id(1)-1);
    i = i+1;
end

 clc
clear
q=uigetfile('*.txt')
b=funcl(q);
d=uiputfile('*.txt')
dlmwrite(d,b)
type(d)
fclose('all');