excel中提取连续8位数字

提取A1中8个连续数字:
=IFERROR(0+MID(A1,MATCH(10,MMULT(ABS(ISNUMBER(0+MID(MID(“ζ”&A1&”ζ”,ROW(INDEX(A:A,1):INDEX(A:A,LEN(A1)-7)),10),{1,2,3,4,5,6,7,8,9,10},1))-{1,0,0,0,0,0,0,0,0,1}),{1;1;1;1;1;1;1;1;1;1}),0),8),””)

TW复制草稿箱表。

方法:

show create table 旧表;
这样会将旧表的创建命令列出。我们只需要将该命令拷贝出来,更改table的名字,就可以建立一个完全一样的表

 

 

CREATE TABLE `tw_drafts_1` (
`mid` tinyint(1) unsigned NOT NULL DEFAULT ‘0’,
`cid` smallint(5) unsigned NOT NULL DEFAULT ‘0’,
`id` int(10) unsigned NOT NULL AUTO_INCREMENT,
`title` char(80) NOT NULL DEFAULT ”,
`color` char(6) NOT NULL DEFAULT ”,
`alias` char(50) NOT NULL DEFAULT ”,
`tags` varchar(255) NOT NULL DEFAULT ”,
`intro` varchar(255) NOT NULL DEFAULT ”,
`pic` varchar(255) NOT NULL DEFAULT ”,
`uid` int(10) unsigned NOT NULL DEFAULT ‘0’,
`author` varchar(20) NOT NULL DEFAULT ”,
`source` varchar(150) NOT NULL DEFAULT ”,
`dateline` int(10) unsigned NOT NULL DEFAULT ‘0’,
`lasttime` int(10) unsigned NOT NULL DEFAULT ‘0’,
`ip` int(10) NOT NULL DEFAULT ‘0’,
`iscomment` tinyint(1) unsigned NOT NULL DEFAULT ‘0’,
`views` int(10) unsigned NOT NULL DEFAULT ‘0’,
`imagenum` int(10) unsigned NOT NULL DEFAULT ‘0’,
`flags` varchar(20) NOT NULL DEFAULT ”,
`seo_title` varchar(80) NOT NULL DEFAULT ”,
`seo_keywords` varchar(80) NOT NULL DEFAULT ”,
`seo_description` varchar(255) NOT NULL DEFAULT ”,
`content` mediumtext NOT NULL,
`images` mediumtext NOT NULL,
`push` tinyint(1) unsigned NOT NULL DEFAULT ‘0’,
`oprice` double(10,2) NOT NULL DEFAULT ‘0.00’,
`pay_content` text NOT NULL,
PRIMARY KEY (`id`),
KEY `cid_id` (`cid`,`id`),
KEY `cid_dateline` (`cid`,`dateline`)
) ENGINE=MyISAM AUTO_INCREMENT=3261166 DEFAULT CHARSET=utf8

 

 

另,数据库修改表名:

RENAME TABLE tw_drafts TO tw_drafts_6;
RENAME TABLE tw_drafts_7 TO tw_drafts;

通王标题源码中重复的问题

瞎改的,不知道有没有什么后果,在此记一下:

 

/twcms/control/show_control.class.php

将:

$this->_cfg[‘titles’] = $_show[‘title’].(empty($_show[‘seo_title’]) ? ” : ‘/’.$_show[‘seo_title’]);

修改为:

//$this->_cfg[‘titles’] = $_show[‘title’].(empty($_show[‘seo_title’]) ? ” : ‘/’.$_show[‘seo_title’]);
$this->_cfg[‘titles’] = $_show[‘title’];

通王采集站缩略图路径问题。

@阿-销售twcms模板 哥们 ,请教一下,我打算用你的大前端模板,目前有一个这样的问题:
因为我略缩图也是直接在火车头里面提取的文章的第一张图片地址,如:https://p3-sign.toutiaoimg.com/pgc-image/5c21db61f8074e9988d45c4976df89f4~tplv-tt-large.image?x-expires=1969205764&x-signature=hNFUxEeJy7RQGmMayf8QyWtlu8g%3D,但略缩图不显示,我查看了一下网页上略缩图的地址,前面自动加了域名,成了http://www.zipu.org/https://p3-sign……这种格式。
我自己折腾半天,如果把采集的略缩图地址的“https:”去掉,只留下//p3-sign……….,则可以正常显示。

目前 我想可不可以不改变略缩图的地址,通过改变模板的代码,能否实现略缩图的显示?

大佬给我解决办法:

twcms\model\cms_content_model.class.php

 

// 改缩略图地址20220601砍柴郎 $v[‘pic’] = $this->cfg[‘webdir’].(empty($v[‘pic’]) ? ‘static/img/nopic.gif’ : $v[‘pic’]);

if($v[‘pic’] && substr($v[‘pic’], 0, 2) != ‘//’ && substr($v[‘pic’], 0, 4) != ‘http’){
$v[‘pic’] = $this->cfg[‘webdir’].$v[‘pic’];
}elseif(empty($v[‘pic’])){
$v[‘pic’] = $this->cfg[‘webdir’].’static/img/nopic.gif’;
}

 

PPT 批量更改字体、颜色

Sub OED01()
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
Set oTxtRange = oShape.TextFrame.TextRange
If Not IsNull(oTxtRange) Then
With oTxtRange.Font
.Name = “微软雅黑” ‘更改为需要的字体
.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) ‘改成想要的文字颜色,用RGB参数表示,黑色全为0,白色全为255
End With
End If
Next
Next
End Sub

twcms404标签删除

删除带双引号的:

方法1:UPDATE `tw_drafts` SET `tags` = replace (`tags`,’”’,”) ;

 

方法2:UPDATE tw_drafts SET tags=” where tags LIKE ‘%”%’;