}
Author Profile Page 8man | November 9, 2012 10:02 AM | Reply
split changed with [[[ to [[[ and ]]] to
if [[[ and ]]] is not in the text...
double split technique:
a line is
"[[[ field1 ]]] contents of field1 [[[ field2 ]]] contents of field 2"
so split on [[[ gives an array
field1 ]]] contents of field1
field2 ]]] contents of field 2
and then split on each previous array element with ]]] extracts the
contents of each field...
array element 1 is : field1 ]]] contents of field1
and split on ]]] gives the contents of field1
Public bn1(10000)
Public bn(10000)
Public n2
Public tflag
Public v
Public s
Public s1
Sub tRRTT()
j = 0
Open "c:\since\cylinder\threetimes" For Input As #2
Do While Not EOF(2)
Line Input #2, bn1(j)
j = j + 1
Loop
Close #2
bn1tot = j
Open "C:\since\cylinder\XXX765" For Output As #1
tflag = 0
n1 = 0: n2 = 0: v = ""
For j = 0 To bn1tot
bn(n2) = bn1(n1)
If (InStr(bn(n2), "Chunk:") = 1) Then
s = Switch(InStr(bn(n2), "QW"), "QW", _
InStr(bn(n2), "UH"), "UH", _
InStr(bn(n2), "YT"), "YT", _
InStr(bn(n2), "MH"), "MH")
s1 = s
End If
v = v + bn(n2)
v = Replace(v, Chr(10), "")
If InStr(bn(n2), "NOTXET") Then
'If InStr(v, "NOTXET") Then
v = Replace(v, bn(n2), "")
bn(n2) = ""
' v = Replace(v, "", "")
If n1 > 3 Then
'retreater
Mlinefeed (v)
End If
For i = 0 To n2: bn(i) = "": Next
v = ""
n2 = -1
End If
n2 = n2 + 1
n1 = n1 + 1
Next
Close #1
Dim f(10000)
Dim r As Variant
j = 0
Open "c:\since\cylinder\XXX765" For Input As #1
Do While Not EOF(1)
j = j + 1
Line Input #1, f(j)
Loop
Close #1
i = 0
For k = 1 To j
r = Split(f(k), ";")
For i = 0 To UBound(r)
Cells(k, i + 1) = r(i)
Next
Next
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Rows("1:1").Select
Selection.Font.Bold = True
End Sub
Sub retreater()
Dim a(100) As String
Dim at(100) As String
Dim c(100)
Dim d As Variant
Dim b(10000)
Dim fld(10000)
a(0) = " in quota"
a(1) = "phanthom high"
a(2) = "cloud nine"
a(3) = " in quota"
a(4) = "return sub:"
a(5) = "dialog seven:"
a(6) = "long term:"
a(7) = "tusj it done:"
a(8) = "- solvent:"
a(9) = "- barbie confused:"
a(10) = "ape man"
a(11) = "ape men"
a(12) = "internal:"
a(13) = "new date since"
a(14) = "UNKNOWN"
a(15) = "pattern2"
a(16) = "pattern3"
a(17) = "the eight men"
a(18) = "the eight man"
a(19) = "the eight men"
a(20) = "the eight man"
a(21) = "listed subsystem"
i = 1
Do While a(i) > ""
i = i + 1
Loop
atot = i - 1
bntot = n2
i = 0
flag = 1
For j = 0 To bntot
bn(j) = Replace(bn(j), ";", ",")
If (InStr(bn(j), "Chunk:") > 0) Then
If (flag = 1) Then
bn(j) = ""
End If
flag = 0
End If
If InStr(bn(j), " in quota") Then
n = InStr(bn(j), " in quota")
b(i) = Mid(bn(j), 1, n - 1) '+ chr(13)
b(i + 1) = " in quota" + Mid(bn(j), n + Len(" in quota")) '+ chr(13)
i = i + 2
Else
b(i) = bn(j)
i = i + 1
End If
Next
btot = i
s = "": k = 0: flag = 0
For i = 0 To atot: at(i) = a(i): Next
For j = 0 To btot
For i = 0 To atot
If InStr(b(j), at(i)) = 1 And Len(at(i)) > 0 Then
If flag = 1 Then
k = k + 1
End If
b(j) = Replace(b(j), Chr(13), "")
fld(k) = b(j)
b(j) = ""
at(i) = ""
flag = 1
Exit For
End If
Next
If (flag = 1) Then
b(j) = Replace(b(j), Chr(13), "")
fld(k) = fld(k) + b(j)
End If
Next
fldtot = k
t = "INTERN"
s = s1
'c(1) = 3: c(2) = 7: c(3) = 4: c(4) = 14: c(5) = 10
For d = 0 To 21: c(d) = d: Next
For d = 0 To 21
i = c(d)
If tflag = 0 Then
If a(i) = "phanthom high" Then
t = t + " ; " + " TNS ; Syte Exit ; Syte requested changed"
Else
t = t + " ; " + a(i)
End If
End If
flag = 0
For j = 0 To fldtot
If InStr(fld(j), a(i)) = 1 Then
If a(i) = "phanthom high" Then
fld(j) = Replace(fld(j), "(", ";")
fld(j) = Replace(fld(j), "/", ";")
fld(j) = Replace(fld(j), ")", " ")
End If
If a(i) = " in quota" Then
fld(j) = Replace(fld(j), ")", " ")
End If
s = s + " ; " + Mid(fld(j), Len(a(i)) + 1)
fld(j) = ""
flag = 1
Exit For
End If
Next
If flag = 0 Then
s = s + " ; - "
End If
Next
If tflag = 0 Then
Print #1, t
tflag = 1
End If
Print #1, s
End Sub
Sub UHHYYUII()
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MYTI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
Open "C:\since\QQWW" For Output As #1
tflag = 0
For i = 1 To 18
Set myitem = myFolder.Items(i)
'Set myitem = myFolder.Items(9)
'If InStr(myitem.Subject, "YT") Then
If InStr(myitem.Subject, "alarmed") Then
MsgBox (myitem.Subject)
v = myitem.Body
Mlinefeed (v)
End If
Next
Close #1
End Sub
Sub Mlinefeed(v)
Dim a(100) As String
Dim r As Variant
Dim rf As Variant
a(0) = " in quota"
a(1) = "phanthom high"
a(2) = "cloud nine"
a(3) = " in quota"
a(4) = "return sub:"
a(5) = "dialog seven:"
a(6) = "long term:"
a(7) = "tusj it done:"
a(8) = "- solvent:"
a(9) = "- barbie confused:"
a(10) = "ape man"
a(11) = "ape men"
a(12) = "internal:"
a(13) = "new date since"
a(14) = "UNKNOWN"
a(15) = "pattern2"
a(16) = "pattern3"
a(17) = "the eight men"
a(18) = "the eight man"
a(19) = "the eight men"
a(20) = "the eight man"
a(21) = "listed subsystem"
For i = 0 To 21
If i = 0 Then
v = Replace(v, " in quota", "[[[ in quota]]]", , 2)
ElseIf i = 1 Then
v = Replace(v, "phanthom high", "PMHTERN", , 2)
v = Replace(v, "PMHTERN", "phanthom high", , 1)
v = Replace(v, "PMHTERN", "[[[phanthom high]]]")
ElseIf i = 17 Then
v = Replace(v, "the eight men", "[[[the eight men]]]", , 2)
ElseIf i = 18 Then
v = Replace(v, "the eight man", "[[[the eight man]]]", , 2)
ElseIf i = 3 Or i = 19 Or i = 20 Then
Else
sc = a(i)
v = Replace(v, sc, "[[[" + sc + "]]]", , 1)
End If
Next
v = Replace(v, Chr(13), "")
v = Replace(v, Chr(160), "")
v = Replace(v, Chr(10), "")
v = Replace(v, ";", ",")
r = Split(v, "[[[")
t = "INTERN"
For i = 0 To 21
flag = 0
If tflag = 0 Then
If a(i) = "phanthom high" Then
t = t + " ; " + " TNS ; Syte Exit ; Syte requested changed"
Else
t = t + " ; " + a(i)
End If
End If
For j = 0 To UBound(r)
rf = Split(r(j), "]]]")
If UBound(rf) > 0 Then
If a(i) = rf(0) Then
If rf(0) = "phanthom high" Then
rf(1) = Replace(rf(1), "(", ";")
rf(1) = Replace(rf(1), "/", ";")
rf(1) = Replace(rf(1), ")", " ")
End If
If rf(0) = " in quota" Then
rf(1) = Replace(rf(1), ")", " ")
End If
s = s + " ; " + rf(1)
r(j) = "-"
flag = 1
Exit For
End If
End If
Next j
If flag = 0 Then
s = s + " ; " + "- "
End If
Next
If tflag = 0 Then
Print #1, t
tflag = 1
End If
Print #1, s
End Sub
==========================================
Sub testUH()
Dim TheDate As Date
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MYTI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
f = 0
For i = 1 To myNamespace.Folders.Count
Set mynew = myNamespace.Folders(i)
For j = 1 To mynew.Folders.Count
Set myFolder = mynew.Folders(j)
If InStr(myFolder, "internal") Then
f = 1
Exit For
End If
Next
If f = 1 Then
Exit For
End If
Next
Open "C:\LHTTY\threetimes" For Output As #1
i = 0
For Each myitem In myFolder.Items
' TheDate = myitem.ReceivedTime
' If DateDiff("d", Now, TheDate) > -45 Then
If InStr(myitem.Subject, "alarmed") Then
' If (InStr(myItem.Subject, "QW") Or InStr(myItem.Subject, "UH") _
' Or InStr(myItem.Subject, "YT") Or InStr(myItem.Subject, "MH")) Then
' MsgBox (myItem.Subject)
v = myitem.Body
Print #1, ""
Print #1, v
' i = i + 1
End If
'End If
' If i > 4 Then
' Exit For
'End If
Next
Close #1
End Sub
====== perl =======================
FUNCTION9.pl
sub retreater
{
$a[0] = " in quota" ;
$a[1] = "phanthom high";
$a[2] = "cloud nine";
$a[3] = " in quota";
$a[4] = "return sub:";
$a[5] = "dialog seven:";
$a[6] = "long term:";
$a[7] = "tusj it done:";
$a[8] = "- solvent:";
$a[9] = "- barbie confused:";
$a[10] = "ape man";
$a[11] = "ape men";
$a[12] = "internal:";
$a[13] = "new date since";
$a[14] = "UNKNOWN";
$a[15] = "pattern2";
$a[16] = "pattern3";
$a[17] = "the eight men" ;
$a[18] = "the eight man";
$a[19] = "the eight men" ;
$a[20] = "the eight man";
$a[21] = "listed subsystem";
$i=0; $flag=1;
for($j=0;$j<@bn;$j++)
{ $bn[$j]=~s/;/,/g;
if ($bn[$j] =~ "Chunk:")
{ if ($flag)
{
$s1="QW" if $bn[$j] =~ "QW";
$s1="UH" if $bn[$j] =~ "UH";
$s1="YT" if $bn[$j] =~ "YT";
$s1="MH" if $bn[$j] =~ "MH";
$bn[$j]=""
}
$flag=0;
}
if ($bn[$j] =~ " in quota")
{$bn[$j] =~ / in quota/g;
$n=pos $bn[$j];
$b[$i]=substr($bn[$j],0,$n-length(' in quota'))."\n";
$b[$i+1]=" in quota" .substr($bn[$j],$n)."\n";
$i=$i+2;
}
else
{ $b[$i]=$bn[$j];
$i=$i+1;
}
}
$s=''; $k=0; $flag=0;
@at=@a;
for($j=0;$j<@b;$j++)
{
for($i=0;$i<@at;$i++)
{ if (($b[$j] =~ /^$at[$i]/) && (length($at[$i])>0))
{
if ($flag) { $k=$k+1 }
$b[$j]=~s/\n//g;
$fld[$k]= $b[$j];
$b[$j]="";
$at[$i]="";
$flag=1;
last
}
}
if ($flag)
{
$b[$j]=~s/\n//g;
$fld[$k]= $fld[$k].$b[$j]
}
}
$s=$s1; $t='INTERN';
for ($d=0;$d<22;$d++) {$c[$d]=$d}
for ($d=0;$d<22;$d++)
{ $i=$c[$d];
if ($tflag == 0)
{ if ($a[$i] =~ "phanthom high" )
{ $t = $t . ' ; ' . ' TNS ; Syte Exit ; Syte requested changed'}
else
{ $t = $t . ' ; ' . $a[$i]}
}
$flag=0;
for($j=0;$j<@fld;$j++)
# { if ($fld[$j] =~ m/^$a[$i].+/)
{ if ($fld[$j] =~ m/^$a[$i]/)
{ if ($a[$i] eq "phanthom high" )
{ $fld[$j]=~s/\(/;/;
$fld[$j]=~s/\//;/;
$fld[$j]=~s/\)/ /
}
if ($a[$i] eq " in quota" )
{ $fld[$j]=~s/\)/ /}
$s=$s.' ; '.substr($fld[$j],length($a[$i]));
$fld[$j]="";
$flag=1; last
}
}
if ($flag==0) { $s=$s.' ; - ' }
}
if ($tflag == 0)
{ print $t."\n";
$tflag = 1
}
print $s."\n";
}
$ff="threetimes"; open ff; @bn1=; close ff;
$tflag=0;
$n1=0; $n2=0;
for(@bn1)
{ $bn[$n2]=$bn1[$n1];
if ($bn[$n2]=~/NOTXET/)
{
$bn[$n2]="";
# print @bn;
retreater if $n1>3;
splice@bn,0;
splice@b,0;
splice@at,0;
splice@fld,0;
$n2=-1;
}
$n2=n2+1;
$n1=n1+1;
}
and
FUNCTION0.pl
sub retreater
{
$a[0] = " in quota" ;
$a[1] = "phanthom high";
$a[2] = "cloud nine";
$a[3] = " in quota";
$a[4] = "return sub:";
$a[5] = "dialog seven:";
$a[6] = "long term:";
$a[7] = "tusj it done:";
$a[8] = "- solvent:";
$a[9] = "- barbie confused:";
$a[10] = "ape man";
$a[11] = "ape men";
$a[12] = "internal:";
$a[13] = "new date since";
$a[14] = "UNKNOWN";
$a[15] = "pattern2";
$a[16] = "pattern3";
$a[17] = "the eight men" ;
$a[18] = "the eight man";
$a[19] = "the eight men" ;
$a[20] = "the eight man";
$a[21] = "listed subsystem";
for($i=0;$i<22;$i++)
{ if ($i == 0) {
$v =~s/( in quota)(.+)( in quota)(.+)/[[[$1]]]$2[[[$3]]]$4/;
}
elsif ($i == 1) {
$v =~s/(^.+phanthom high.+)(phanthom high)(.+)/$1[[[$2]]]$3/;
}
elsif ($i == 17) {
#$v =~s/(the eight men)(.+)(the eight men)(.+)/[[[$1]]]$2[[[$3]]]$4/;
$v =~s/the eight men/PMHTERN/;
$v =~s/the eight men/PMHTERN/;
$v =~s/PMHTERN/[[[the eight men]]]/;
$v =~s/PMHTERN/[[[the eight men]]]/;
}
elsif ($i == 18) {
# $v =~s/(the eight man)(.+)(the eight man)(.+)/[[[$1]]]$2[[[$3]]]$4/;
$v =~s/the eight man/PMHTERN/;
$v =~s/the eight man/PMHTERN/;
$v =~s/PMHTERN/[[[the eight man]]]/;
$v =~s/PMHTERN/[[[the eight man]]]/;
}
elsif ($i==3||$i==19||$i==20) { }
else {
$sc = $a[$i];
$v =~s/$sc/[[[$sc]]]/;
}
}
$c=chr(13); $v =~s/$c//g;
$c=chr(160);$v =~s/$c//g;
$c=chr(10); $v =~s/$c//g;
$v =~s/;/,/g;
@r = split'[[[',$v;
#print $r[0]."\n\n";
#print $s."\n\n";
$t = "INTERN";
for($i=0;$i<22;$i++)
{ $flag = 0;
if ($tflag == 0)
{ if ($a[$i] =~ "phanthom high" )
{ $t = $t . ' ; ' . ' TNS ; Syte Exit ; Syte requested changed'}
else
{ $t = $t . ' ; ' . $a[$i]}
}
for($j=0;$j<@r;$j++)
{
@rf = split']]]',$r[$j];
if ($a[$i] eq $rf[0])
{ if ($rf[0] eq "phanthom high" )
{ $rf[1]=~s/\(/;/;
$rf[1]=~s/\//;/;
$rf[1]=~s/\)/ /
}
if ($rf[0] eq " in quota" )
{ $rf[1]=~s/\)/ /}
$s=$s.' ; '.$rf[1];
$r[$j]="-";
$flag=1; last
}
}
if ($flag==0) { $s=$s.' ; - ' }
}
if ($tflag == 0)
{ print $t."\n";
$tflag = 1
}
print $s."\n";
}
$ff="threetimes"; open ff; @bn1=; close ff;
$tflag=0;
$n1=0; $n2=0; $v="";
for(@bn1)
{ $bn[$n2]=$bn1[$n1];
if ($bn[$n2]=~/^Chunk:/)
{
$s="QW" if $bn[$n2] =~ "QW";
$s="UH" if $bn[$n2] =~ "UH";
$s="YT" if $bn[$n2] =~ "YT";
$s="MH" if $bn[$n2] =~ "MH";
}
$v=$v.$bn[$n2];
$c=chr(10); $v =~s/$c//g;
if ($bn[$n2]=~/NOTXET/)
{
$v =~s///;
$bn[$n2]="";
# print @bn;
retreater if $n1>3;
splice@bn,0;
$v="";
$n2=-1;
}
$n2=n2+1;
$n1=n1+1;
}
================= awk ==========================================
FUNCTION0.awk
function retreater()
{
a[0] = " in quota" ;
a[1] = "phanthom high";
a[2] = "cloud nine";
a[3] = " in quota";
a[4] = "return sub:";
a[5] = "dialog seven:";
a[6] = "long term:";
a[7] = "tusj it done:";
a[8] = "- solvent:";
a[9] = "- barbie confused:";
a[10] = "ape man";
a[11] = "ape men";
a[12] = "internal:";
a[13] = "new date since";
a[14] = "UNKNOWN";
a[15] = "pattern2";
a[16] = "pattern3";
a[17] = "the eight men" ;
a[18] = "the eight man";
a[19] = "the eight men" ;
a[20] = "the eight man";
a[21] = "listed subsystem";
atot=22;
i=0; flag=1;
for(j=0;j<bntot;j++)
{ gsub(/;/,",",bn[j]);
if (bn[j] ~ "Chunk:")
{ if (flag)
{
if (bn[j] ~ "QW") s1="QW";
if (bn[j] ~ "UH") s1="UH";
if (bn[j] ~ "YT") s1="YT";
if (bn[j] ~ "MH") s1="MH";
bn[j]=""
}
flag=0;
}
if (bn[j] ~ " in quota")
{
b[i]=substr(bn[j],0,index(bn[j]," in quota")-1);
b[i+1]=substr(bn[j],index(bn[j]," in quota"));
i=i+2;
}
else
{ b[i]=bn[j];
i=i+1;
}
}
btot=i;
s=""; k=0; flag=0;
for(j=0;j<atot;j++) at[j]=a[j];
for(j=0;j<btot;j++) {
for(i=0;i<atot;i++) {
if ((index(b[j],at[i])==1) && (length(at[i])>0))
{
if (flag) { k=k+1 }
gsub(/\n/,"",bn[j]);
fld[k]= b[j];
b[j]="";
at[i]="";
flag=1;
break;
}
}
if (flag)
{
gsub(/\n/,"",bn[j]);
fld[k]= fld[k]""b[j]
}
}
fldtot=k+1;
s=s1; t="INTERN";
for (d=0;d<atot;d++) {c[d]=d}
for (d=0;d<atot;d++)
{ i=c[d];
if (tflag == 0)
{ if (a[i] ~ "phanthom high" )
{ t = t" ; TNS ; Syte Exit ; Syte requested changed"}
else
{ t = t" ; "a[i]}
}
flag=0;
for(j=0;j<fldtot;j++)
{ if (index(fld[j],a[i])==1)
{ if (a[i] ~ "phanthom high" )
{ sub(/\(/,";",fld[j]);
sub(/\//,";",fld[j]);
sub(/\)/," ",fld[j]);
}
if (a[i] ~ " in quota" )
{ sub(/\)/," ",fld[j])}
s=s" ; "substr(fld[j],length(a[i])+1);
fld[j]="";
flag=1; break
}
}
if (flag==0) { s=s" ; - " }
}
if (tflag == 0)
{ print t;
tflag = 1
}
print s;
}
BEGIN {
ff=1;i=0;
while (ff!=0 ) ff=getline bn1[i=i+1]
bn1tot=i;
for(n2=0;n2<bntot;n2++) bn[n2]="";
n2=0;
for(n1=0;n1<bn1tot;n1++)
{ bn[n2]=bn1[n1];
if (bn[n2]~/NOTXET/)
{
bn[n2]="";
bntot=n2;
if(n1>3) retreater();
for(n2=0;n2<bntot;n2++) bn[n2]="";
for(n2=0;n2<btot;n2++) b[n2]="";
for(n2=0;n2<fldtot;n2++) fld[n2]="";
n2=-1;
}
n2=n2+1;
}
}
and
FUNCTION1.awk
function retreater()
{
a[0] = " in quota" ;
a[1] = "phanthom high";
a[2] = "cloud nine";
a[3] = " in quota";
a[4] = "return sub:";
a[5] = "dialog seven:";
a[6] = "long term:";
a[7] = "tusj it done:";
a[8] = "- solvent:";
a[9] = "- barbie confused:";
a[10] = "ape man";
a[11] = "ape men";
a[12] = "internal:";
a[13] = "new date since";
a[14] = "UNKNOWN";
a[15] = "pattern2";
a[16] = "pattern3";
a[17] = "the eight men" ;
a[18] = "the eight man";
a[19] = "the eight men" ;
a[20] = "the eight man";
a[21] = "listed subsystem";
atot=22;
i=0; flag=1;
for(i=0;i<22;i++)
{ if (i == 0) {
sub(" in quota","PMHTERN",v);
sub(" in quota","PMHTERN",v);
sub("PMHTERN","[[[ in quota]]]",v);
sub("PMHTERN","[[[ in quota]]]",v);
}
else if (i == 1) {
sub("phanthom high","PMHTERN",v);
sub("phanthom high","PMHTERN",v);
sub("PMHTERN","phanthom high",v);
sub("PMHTERN","[[[phanthom high]]]",v);
}
else if (i == 17) {
sub("the eight men","PMHTERN",v);
sub("the eight men","PMHTERN",v);
sub("PMHTERN","[[[the eight men]]]",v);
sub("PMHTERN","[[[the eight men]]]",v);
}
else if (i == 18) {
sub("the eight man","PMHTERN",v);
sub("the eight man","PMHTERN",v);
sub("PMHTERN","[[[the eight man]]]",v);
sub("PMHTERN","[[[the eight man]]]",v);
}
else if (i==3||i==19||i==20) { }
else {
sc = a[i];
sub(sc,"[[["sc"]]]",v);
}
}
c=sprintf("%c",13); gsub(c,"",v);
c=sprintf("%c",160); gsub(c,"",v);
c=sprintf("%c",10); gsub(c,"",v);
gsub(";",",",v);
split(v,r,"[[[");
lr=1; for (x in r) lr=lr+1;
t = "INTERN";
for(i=0;i<22;i++)
{ flag = 0;
if (tflag == 0)
{ if (a[i] ~ "phanthom high" )
{ t = t" ; TNS ; Syte Exit ; Syte requested changed"}
else
{ t = t" ; "a[i]}
}
for(j=1;j<lr;j++)
{
split(r[j],rf,"]]]");
if (a[i]==rf[1])
{ if (rf[1] ~ "phanthom high" )
{ sub(/\(/,";",rf[2]);
sub(/\//,";",rf[2]);
sub(/\)/," ",rf[2]);
}
if (rf[1] ~ " in quota" )
{ sub(/\)/," ",rf[2])}
s=s" ; "rf[2];
r[j]="-";
flag=1; break
}
}
if (flag==0) { s=s" ; - " }
}
if (tflag == 0)
{ print t;
tflag = 1
}
print s;
}
BEGIN {
ff=1;i=0;
while (ff!=0 ) ff=getline bn1[i=i+1]
tflag=0;
bn1tot=i;
for(n2=0;n2<bntot;n2++) bn[n2]="";
n1=0; n2=0; v="";
for(n1=0;n1<bn1tot;n1++)
{ bn[n2]=bn1[n1];
if (bn[n2] ~ "Chunk:")
{
if (bn[n2] ~ "QW") s="QW";
if (bn[n2] ~ "UH") s="UH";
if (bn[n2] ~ "YT") s="YT";
if (bn[n2] ~ "MH") s="MH";
}
v=v""bn[n2];
c=sprintf("%c",10); gsub(c,"",v);
if (bn[n2]~/NOTXET/)
{
sub("","",v);
bn[n2]="";
bntot=n2;
if(n1>3) retreater();
for(n2=0;n2<bntot;n2++) bn[n2]=""; v="";
n2=-1;
}
n2=n2+1;
}
}
Author Profile Page tegmark | November 9, 2012 10:06 AM | Reply
From:
http://www.ilovephilosophy.com/viewtopic.php?f=4&t=138414&start=50
Hi friends,
I would like to start with Searle thought experiment – The Chinese Room Argument.
It raises
No comments:
Post a Comment