组保留的标签 余下为需要删除的标签
unset($oldtag[$key]);
}
}
}
if (!empty($oldtag)) {
$tagids = array();
foreach ($oldtag as $tagid => $tagname) {
$tagids[] = $tagid;
}
well_oldtag_delete($tagids, $tid);
}
$r = well_tag_process($tid, $fid, $create_tag, $tagarr);
return $r;
}
// 删除标签和绑定的主题
function well_oldtag_delete($tagids, $tid)
{
$pagesize = count($tagids);
$arrlist = well_tag_find_by_tagids($tagids, 1, $pagesize);
$delete_tagids = array(); // 删除
$tagids = array();
$n = 0;
foreach ($arrlist as $val) {
++$n;
if (1 == $val['count']) {
// 只有一个主题
$delete_tagids[] = $val['tagid'];
} else {
$tagids[] = $val['tagid'];
}
}
!empty($delete_tagids) and well_tag_delete($delete_tagids);
$arlist = well_tag_thread_find_by_tid($tid, 1, $n);
if ($arlist) {
$ids = array();
foreach ($arlist as $val) $ids[] = $val['id'];
well_tag_thread_delete($ids);
}
!empty($tagids) and well_tag_update($tagids, array('count-' => 1));
}
// 标签数据处理 $arr=新提交的数组 $tagarr=保留的旧标签
function well_tag_process($tid, $fid, $new_tags = array(), $tagarr = array())
{
if (empty($tid)) return '';
// 新标签处理入库
if ($new_tags) {
$threadarr = array();
$tagids = array();
$i = 0;
$size = 5;
$n = count($tagarr);
$n = $n > $size ? $size : $size - $n;
foreach ($new_tags as $name) {
++$i;
$name = trim($name);
$name = stripslashes($name);
$name = strip_tags($name);
$name = str_replace(array(' ', '#', "@", "$", "%", "^", '&', '·', '<', '>', ';', '`', '~', '!', '¥', '……', ';', '?', '?', '-', '—', '_', '=', '+', '.', '{', '}', '|', ':', ':', '、', '/', '。', '[', ']', '【', '】', '‘', ' ', ' ', ' ', ' ', ' '), '', $name);
$name = htmlspecialchars($name, ENT_QUOTES);
if ($name && $i <= $n) {
// 查询标签
$read = well_tag_read_name($name);
if ($read) {
// 存在 count+1
$tagids[] = $read['tagid'];
} else {
// 入库
$arr = array('name' => $name, 'count' => 1);
$tagid = well_tag_create($arr);
FALSE === $tagid and message(-1, lang('create_failed'));
$read = array('tagid' => $tagid, 'name' => $name);
}
$tag_thread = array('tagid' => $read['tagid'], 'tid' => $tid);
$threadarr[] = $tag_thread;
$tagarr[$read['tagid']] = $read['name'];
}
}
!empty($threadarr) and tag_thread_big_insert($threadarr);
!empty($tagids) and well_tag_update($tagids, array('count+' => 1));
}
$json = empty($tagarr) ? '' : xn_json_encode($tagarr);
return $json;
}
?> $v = implode(",", $v);
$temp[] = $v;
}
// 去掉重复的字符串,也就是重复的一维数组
$temp = array_unique($temp);
// 再将拆开的数组重新组装
$output = array();
foreach ($temp as $k => $v) {
if ($stkeep) $k = $starr[$k];
if ($ndformat) {
$temparr = explode(",", $v);
foreach ($temparr as $ndkey => $ndval) $output[$k][$ndarr[$ndkey]] = $ndval;
} else $output[$k] = explode(",", $v);
}
return $output;
}
// 合并二维数组 如重复 值以第一个数组值为准
function array2_merge($array1, $array2, $key = '')
{
if (empty($array1) || empty($array2)) return NULL;
$arr = array();
foreach ($array1 as $k => $v) {
isset($v[$key]) ? $arr[$v[$key]] = array_merge($v, $array2[$k]) : $arr[] = array_merge($v, $array2[$k]);
}
return $arr;
}
/*
* 对二维数组排序 两个数组必须有一个相同的键值
* $array1 需要排序数组
* $array2 按照该数组key排序
* */
function array2_sort_key($array1, $array2, $key = '')
{
if (empty($array1) || empty($array2)) return NULL;
$arr = array();
foreach ($array2 as $k => $v) {
if (isset($v[$key]) && $v[$key] == $array1[$v[$key]][$key]) {
$arr[$v[$key]] = $array1[$v[$key]];
} else {
$arr[] = $v;
}
}
return $arr;
}
?>
了解Excel中的R1C1引用样式编程频道|福州电脑网
了解Excel中的R1C1引用样式
系统教程1430
更新时间:2026-04-03 20:28:35 2024年6月14日发(作者:)
通常,在Excel公式中对单元格或区域的引用是A1引用样式,对于这种引用样式,
大家已经非常熟悉了。在Excel中还存在另外一种引用样式,即R1C1引用样式,在R1C1
引用样式中,行标和列标均为数字。该引用样式对单元格的绝对引用为“R+行标+C+列标”,
其中“R”代表行,“C”代表列,如R2C3表示位于第2行、第3列的单元格。
R1C1引用样式有绝对有用和相对引用之分,如当前单元格为D5:
R[-1]C 对当前单元格所在列中的上一行单元格的相对引用,即D4单元格。
R[5]C[2] 对当前单元格下面第5行、右面第2列的单元格的相对引用,即F10
单元格。
R5C2 对当前工作表的第5行、第2列的单元格的绝对引用,相当于$B$5。
R[-1] 对当前单元格上面一行区域的相对引用,相当于4:4。
R 对当前行的绝对引用,相当于$5:$5
按F4键可以在绝对引用和相对引用之间转换。如D5单元格的公式中包含R1C1引用
样式“R5C2”,在编辑栏中选择公式中的“R5C2”,连续按F4键将依次转化为:R5C[-2]、
RC2、RC[-2]。
在宏代码中,R1C1引用样式对于计算行和列的位置很方便。在录制宏的时候,代码
中有时会出现R1C1样式。例如下面是在Excel 2007中录制的宏代码,其作用是在A16
单元格中,用SUM函数对A1:A15单元格进行求和。
Sub Macro1()
Range("A16").Select
aR1C1 = "=SUM(R[-15]C:R[-1]C)"
Range("A17").Select
End Sub
可以通过下面的设置在A1引用样式和R1C1引用样式之间转换:
在Excel 2003中,单击菜单“工具→选项”,在弹出的“选项”对话框中,选择“常
规”选项卡,勾选“R1C1引用样式”,将变为R1C1引用样式。
本文发布于:2024-06-14,感谢您对本站的认可!
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。
本文标签:引用样式选项时候宏代码
发布评论