无论有没有父亲节，我都深深地祝福我的老父亲，老母亲——
祝愿他们健康、长寿！
我的小时候，真没听说有父亲节。今天特意查了查维基百科：
父亲节是一个为感谢父亲而庆祝的节日，始于二十世纪初的美国。全世界大部分的国家与地区是在6月的第三个星期日庆祝父亲节，包括欧亚及港澳、美国、日本等地。中华人民共和国没有设立正式的父亲节，但中国大陆以及港澳民众习惯上使用6月第三个星期日。台湾自从战后时期起，以及中国大陆的民国时期，采用八月八日。有许多国家都把石斛兰作为“父亲节之花”。
中华民国
1945年（民国34年）的8月8日，中国抗日战争战局逐渐明朗，上海部分爱国人士发起“父亲节”来颂扬纪念在战场上为国捐躯的父亲们。抗日战争胜利后，上海市各界党国元老、名流绅仕如吴稚晖、李石曾、潘公展、杜月笙等人，深觉父亲节的意义重要，有提倡订定父亲节庆典活动之必要性；于是，联名陈请上海市政府转呈中央政府，准予规定每年八月八日为父亲节，通令全国遵行。父亲节订于每年的八月八日，是因为“八八”和爸爸音韵相近。并且 ，从字形上将“八八”二字连缀后，正如一个“父”字。因此，订定八月八日为父亲节；又称为“八八节”(“爸爸节”)。
美国
祝愿他们健康、长寿！
我的小时候，真没听说有父亲节。今天特意查了查维基百科：
父亲节是一个为感谢父亲而庆祝的节日，始于二十世纪初的美国。全世界大部分的国家与地区是在6月的第三个星期日庆祝父亲节，包括欧亚及港澳、美国、日本等地。中华人民共和国没有设立正式的父亲节，但中国大陆以及港澳民众习惯上使用6月第三个星期日。台湾自从战后时期起，以及中国大陆的民国时期，采用八月八日。有许多国家都把石斛兰作为“父亲节之花”。
中华民国
1945年（民国34年）的8月8日，中国抗日战争战局逐渐明朗，上海部分爱国人士发起“父亲节”来颂扬纪念在战场上为国捐躯的父亲们。抗日战争胜利后，上海市各界党国元老、名流绅仕如吴稚晖、李石曾、潘公展、杜月笙等人，深觉父亲节的意义重要，有提倡订定父亲节庆典活动之必要性；于是，联名陈请上海市政府转呈中央政府，准予规定每年八月八日为父亲节，通令全国遵行。父亲节订于每年的八月八日，是因为“八八”和爸爸音韵相近。并且 ，从字形上将“八八”二字连缀后，正如一个“父”字。因此，订定八月八日为父亲节；又称为“八八节”(“爸爸节”)。
美国
mysql根据逗号将一行数据拆分成多行数据
[
2019/06/12 11:06 | by 白燕湾 | Via 本站原创 ]
2019/06/12 11:06 | by 白燕湾 | Via 本站原创 ]
工作中，经常有按规定字符拆分行的情况，比如在订单处理时，有一个客户订单对应多个商品时，需拆分。
在拆分前，我们首先需要知道，取哪个特定的字符进行拆分？
如果是逗号，是中文字符还是英文字符？
如果用length(str)函数，中文返回的结果是3*
英文字符的返回字符是1*；
所以：需要掌握：length(str)和char_length(str)的运用。
以下场景如：
MYSQL代码：
help_topic是mysql库下的一张表，如果没权限，可以通过：
在拆分前，我们首先需要知道，取哪个特定的字符进行拆分？
如果是逗号，是中文字符还是英文字符？
如果用length(str)函数，中文返回的结果是3*
英文字符的返回字符是1*；
所以：需要掌握：length(str)和char_length(str)的运用。
以下场景如：
| username | tags |
| 王五 | 10,11,12 |
| 龙大 | 12,13 |
MYSQL代码：
select a.username,substring_index(substring_index(a.tags,',',b.help_topic_id+1),',',-1) tag
from USER_TAG a join
mysql.help_topic b
on b.help_topic_id < (length(a.tags) - length(replace(a.tags,',',''))+1)
order by username;
from USER_TAG a join
mysql.help_topic b
on b.help_topic_id < (length(a.tags) - length(replace(a.tags,',',''))+1)
order by username;
| username | tags |
| 王五 | 10 |
| 王五 | 11 |
| 王五 | 12 |
| 龙大 | 12 |
| 龙大 | 13 |
help_topic是mysql库下的一张表，如果没权限，可以通过：
直接上代码，方便日后查阅：
以上代码会经常使用，可收藏！
Sub byw()
Dim arr, arr1
Dim i%, j%, s%
arr = Sheet6.Range("A1:K" & [A65536].End(3).Row) '第一行为标题行'
ReDim arr1(1 To UBound(arr), 1 To 11)
s = 1
For i = 2 To UBound(arr) '数据区域从第二行开始'
If arr(i, 10) = "是" Then
For j = 1 To 11
'arr1(s, j) = arr(i, j) '如果不改变数组的排列
arr1(s, 1) = s '我给加的一个序号
arr1(s, 2) = arr(i, 5)
arr1(s, 3) = arr(i, 4)
arr1(s, 4) = arr(i, 3)
arr1(s, 5) = arr(i, 1)
arr1(s, 6) = arr(i, 6)
Next
s = s + 1
End If
Next
Sheet1.Range("A4:AU100").ClearContents
Sheet1.[A4].Resize(s, 6) = arr1
End Sub
Dim arr, arr1
Dim i%, j%, s%
arr = Sheet6.Range("A1:K" & [A65536].End(3).Row) '第一行为标题行'
ReDim arr1(1 To UBound(arr), 1 To 11)
s = 1
For i = 2 To UBound(arr) '数据区域从第二行开始'
If arr(i, 10) = "是" Then
For j = 1 To 11
'arr1(s, j) = arr(i, j) '如果不改变数组的排列
arr1(s, 1) = s '我给加的一个序号
arr1(s, 2) = arr(i, 5)
arr1(s, 3) = arr(i, 4)
arr1(s, 4) = arr(i, 3)
arr1(s, 5) = arr(i, 1)
arr1(s, 6) = arr(i, 6)
Next
s = s + 1
End If
Next
Sheet1.Range("A4:AU100").ClearContents
Sheet1.[A4].Resize(s, 6) = arr1
End Sub
以上代码会经常使用，可收藏！
